my $object = Foo->new;
my $fake = bless {}, ref $object;
my $real = (ref $object)->new;