package Boss1; use Employee4; @ISA = qw(Employee4); 1;