Select Code to Download

package Foo;

# some code here
...

return 1 if caller();
print "as a program\n";

$ perl Foo.pm
Called as a program!

$ perl -MFoo -e 1
$

$ perl Bar.pm
Can't open perl script "Bar.pm": No such file or directory