require SomeClass; my $object1 = SomeClass->new; $object1->first_property('new value'); $object1->second_property('another new value'); my $object2 = $object1->new; print $object2->first_property;