Select Code to Download

~>perl -lwe 'BEGIN{ package Foo; sub new { print shift } } Foo->new; F
+oo::new'
Foo
Use of uninitialized value in print at -e line 1.