sub initialize { my $self = shift; # First initialize our inherited aspects $self->SUPER::initialize(); ... initialization specific to the subclass ... }