my %opt;
@ARGV > 0 and getopts( 'a:', \%opt ) or die <<"USAGE";

##</code><code>##

my $opt = {};
@ARGV > 0 and getopts( 'a:', $opt ) or die <<"USAGE";