2 files changed, 7 insertions, 8 deletions
diff --git a/demos/pop3 b/demos/pop3
index 28399cd..53a626a 100644
--- a/demos/pop3
+++ b/demos/pop3
@@ -9,8 +9,8 @@ use blib;
  use Getopt::Long;
  use Net::POP3;
  
-my $opt_debug = 0;
-my $opt_user = undef;
+our $opt_debug = 0;
+our $opt_user = undef;
  
  GetOptions(qw(debug user=s));
  
diff --git a/demos/smtp.self b/demos/smtp.self
index 8a87274..e34d585 100755
--- a/demos/smtp.self
+++ b/demos/smtp.self
@@ -33,21 +33,20 @@ Display this help text and quit
  
  Send the message to C<USERNAME>
  
+=back
+
  =head1 EXAMPLE
  
      demos/smtp.self  -user foo.bar
  
      demos/smtp.self -debug -user Graham.Barr
  
-=back
-
  =cut
  
-my $opt_debug = undef;
-my $opt_user = undef;
-my $opt_help = undef;
+our $opt_debug = undef;
+our $opt_user = undef;
+our $opt_help = undef;
  GetOptions(qw(debug user=s help));
-
  exec("pod2text $0")
      if defined $opt_help;