Select Code to Download

package foo;
use strict;
...
    print "module foo, sub bar executed here\n";
}
1;

#!/usr/bin/perl
use strict;
...
BEGIN {
   print "begin block 2 \n";
}