use Getopt::Long;

my $opt = 0;

GetOptions ("opt:100" => \$opt );

print "Opt is:\t$opt\n";