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