Select Code to Download

#!/usr/bin/perl

...
    getopts( 'w:h:', \%opts );
    print "w: $opts{w}; h: $opts{h}\n";
}

 $ perl opts.pl -w wassup -h hey

w: wassup; h: hey