use Foo;

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

$x = new Foo();


##</code><code>##

package Foo;

sub new
{
   return bless { a => 1 }, shift;
}

sub new2
{
   return bless { a => 1 }, shift;
}
1;