Select Code to Download

[root@wsprod01 myperl]# ./test.pl --domain google.com --client google
Usage: ./test.pl --domain companydomain.com --client company [--job-co
+de 12345] [--help].

GetOptions (
     'domain=s' => \$domain,
...
     'job-code:i' => \$job_code,
     'help' => &usage()
 ) or &usage();