use Getopt::Long;

my $opt = 0;

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

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

##</code><code>##

>opt.pl --opt
Opt is: 100

>opt.pl --opt 7
Opt is: 7

>opt.pl
Opt is: 0