use strict;
use warnings;
use Getopt::Long;
{
    my $blah;
    my $result = GetOptions('blah=i'    =>  \$blah);

    print "result = $result\n";
    print "blah = $blah\n";
}