use Getopt::Long;
GetOptions (
    'help|h'     => \my $help,
    'verbose|v'  => \my $verbose,
);