package Top; use Moose; 1; package SubordinateA; use Moose; extends 'Top'; 1; package SubordinateB; use Moose; extends 'Top'; 1; #### #!/usr/bin/perl -w use strict; use Top. my $obj = Top->new(); | etc.