package FOO;

sub new {
    print "right!\n";
}

package BAR;

sub new {
    print "wrong!\n";
}

my $f = new FOO();   # prints "right!"