or download this
use Getopt::Long;
use Config::Auto;
#use Data::Dumper;
...
GetOptions ("user=s" => \$user, "server=s" => \@servers, "command=s" =
+> \@commands, "file=s" =>\$fil
+e, "dest=s"=> \$dest, "config" => \$config, "help" => \$help);
print "config: \"$config\"\n";