use File::Basename qw( basename );

sub help {
    my $prog = basename($0);
    print("usage: $prog -t [options]\n");
    exit(0);
}

sub usage {
    my $msg = shift || '';
    my $prog = basename($0);
    die("${msg}Use $prog --help for help\n");
}

GetOptions(
    'help|h|?' => \&help,
    'test=s'   => \$option_test,
)
    or usage();

defined($option_test)
    or usage("Missing argument -t\n");