GetOptions(
    "someparam|s=s" => \$some_param,
    "help"          => \$help,
    "man"           => \$man,
);

pod2usage( -verbose => 1 ) unless defined $some_param;
pod2usage( -verbose => 2 ) if defined $help;
pod2usage( -verbose => 2 ) if defined $man;