# ...
  my $self = $class->SUPER::new();
  bless $self,$class;  # re-bless to right classname
  $self->do_child_specific_stuff();
# ...