Select Code to Download

perl -e 'sub new{print@_} main->new(); open main, "foo";'
perl -e 'sub new{print@_} main->main::new(); open main,"foo";'

Can't locate object method "new" via package "IO::Handle" at -e line 1
+.
GLOB(0x80d4208)