Select Code to Download

#!/usr/bin/perl -w
# prog1.pl
print "Hello";

#!/usr/bin/perl -w
# prog1.pl
...
};

main(@ARGV) if ! caller;

# main program:
use strict;
...

my @results = Prog1::main("steph_bow"); # equivalent to 'perl -w prog1
+.pm steph_bow'
...