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