use TOP::TEST; use TOP::TEST::EXTENDONE; use TOP::TEST::EXTENDTWO; my $thing = new TOP::TEST( var_1 => 'this', var_2 => 'that', something=>'extra'); # This is imported into the base class from EXTENDONE print $thing->print_one()."\n"; print $thing->{'var_3'}."\n";