package MyEmployee; @ISA = 'Employee'; sub ManagersCostCenter { $self->Manager->CostCenter; }