use strict;
use warnings;

package A;

sub new {
   return bless {}, shift;
}

1;

package B;

sub new {
   return bless {}, shift;
}

1;

pachage main;

my $a = new A;
my $b = new B;