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);";