my $obj = Class->new(...your args...);
my $subobj = Class::SubClass->new($obj->original_args);