Help for this page
package Employee; use Person; use Gender; @ISA = qw/Person Gender/;
package Person; use Gender; ... ... }