Select Code to Download

$ perl -we'sub foo; my $obj = bless {}, "main"; $obj->foo()'
Undefined subroutine &main::foo called at -e line 1.

$ perl -we'my $obj = bless {}, "main"; $obj->foo()'
Can't locate object method "foo" via package "main" at -e line 1.