Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
my $opt_u = 0;
getopt('u') || die "can't do getopt\n";
print "username is $opt_u\n";

#!/usr/bin/perl -w

...
getopt('u');

print "username is $Getopt::Std::opt_u\n";