Select Code to Download

sub help{
   print "Whatever youd like to write\n";
...
}

die &help unless scalar(@ARGV) == 1;

use strict;
...
GetOptions("foo=s" => \$var) and defined($var) or die &usage;

print "You typed: $var\n";