Select Code to Download

perl -e 'Foo->bar'

perl -e 'print qq~package Foo; sub bar { print "baz\\n" } 1\n~' > Foo.
+pm; cat Foo.pm

perl -I. -MFoo -e 'Foo->bar'

perl -I. -ML -e 'Foo->bar'

perl -I. -e 'eval{Foo->bar};$_=$@;s/.*forgot to load "([^"]+)".*/$1/s;
+eval{require"$_.pm"};Foo->bar'

perl -e 'print qq~package X; { package UNIVERSAL; our \$AUTOLOAD; sub 
+AUTOLOAD { warn "\$AUTOLOAD" }} 9\n~' > X.pm; cat X.pm

perl -I. -MX -e ''

perl -I. -MX -e 'Foo->bar'