use Foo;

sub new(*)
{
 die "wuh?";
}

$x = new Foo();