package MyEmployee; sub ManagersCostCenter { $self->Manager->CostCenter; } sub new { ... } sub can { ... } sub AUTOLOAD { ... }