Help for this page

Select Code to Download


  1. or download this
    use Getopt::Long;
use Pod::Usage;
...
pod2usage(-verbose=>1) unless $user and $pass;

__END__
  2. or download this
    our ($user,$pass,$numb,$help);
my @tmpl = (
...

@tmpl = map {"'$_' => \\\$@{[(split('\|',$_))[0]]},"} @tmpl;
eval "GetOptions(@tmpl);";