Select Code to Download

use strict;
use warnings;
...
GetOptions("luckynumber=i" => \$luckynumber) or die("GetOptions failed
+");
die "missing argument luckynumber" unless defined($luckynumber);
print "Lucky number is " . $luckynumber . "\n";

use warnings;
use strict;
...

# ------ load script with arg - expect ok
ok( require 'luckynumber.pl --luckynumber=42', 'script loaded ok');

$ prove luckynumber.t
luckynumber....ok 1/2Can't locate luckynumber.pl --luckynumber=42 in @
+INC
..