perl -e 'Foo->bar'

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

perl -I. -MX -e ''

##</code><code>##

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