Select Code to Download

package Child;
use base qw(Parent);
...
    $self->do_child_specific_stuff();
    return $self;
}

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