package MyClass    { sub new { bless []=>shift } }
package OtherClass { sub new { bless []=>shift } }
package main
{
   sub MyClass () { return 'OtherClass' }
   my $object = MyClass->new;
   print ref $object;
}