Select Code to Download

use strict;
use Getopt::Std;
...

my %opts = parse_cmd("someprg -x foo -y bar -z baz -ab");
print Dumper(\%opts);

$VAR1 = {
          'x' => 'foo',
...
          'z' => 'baz',
          'b' => 1
        };