diff options
| -rwxr-xr-x | demos/smtp.self | 11 |
1 files changed, 5 insertions, 6 deletions
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; |