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