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