Select Code to Download

use Getopt::Long;

...
) or pod2usage(2);

use strict;
use warnings;
...
    my @vars = @_;
    print "@vars\n";
    print "we're now in dump_forms\n";}

 $ ./mygetopt3.pl  --user fred --password password --forms a
Useless use of array element in void context at ./mygetopt3.pl line 35
+.
fred
password

we're now in dump_forms