sub new { die "main::new sub called" }
sub Foo { die "main::Foo sub called" }

# can't use Foo->new here!!!!!!!!!!!
$obj = new Foo:: ;
print "Got $obj\n";

package Foo;
sub new {
    return bless [] => shift();
}