my $object = Class1->new;
bless $object, 'Class2';