use Getopt::Long;

my $option_test;
my $result = GetOptions ( 'test=s' => \$option_test );

if (! $result) {
    die "Invalid option specifications";
}