my $bar = new FOO();

##</code><code>##

package FOO;

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

package BAR;

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

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

##</code><code>##

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