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