package Employee;
use Person;
use Gender;
@ISA = qw/Person Gender/;

##</code><code>##

package Person;
use Gender;

sub new
{
   ...
   $self->{gender} = Gender->new;
   ...
}