Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "$foo, $bar, $main::bar\n";
}

#!/usr/bin/perl -w
use strict;
...

my $opts = Getopt::Declare->new($spec);
__END__