sub new { my $proto = shift; my $self = bless { @_ }, ref($proto) || $proto; $self->initialize(); } sub initialize { my $self = shift; ... initialization for the base class ... }