Select Code to Download

#!/usr/bin/perl

...
my ( $file, $name );
GetOptions( file => \$file, name => \$name );
print "File: $file\nName: $name\n";

perl test_getopt.pl -file -name

File: 1
Name: 1