package myParent;
our @ISA;

sub new {
  my $class = shift;
  bless $self,$class;
  $self->_parent_init(@_);
  return $self;
}
sub _parent_init {
  my $self = shift;
  print "_initParent (@_)\n";
}

#----------------------------------

package myChild;
our @ISA;
use base qw(myParent);

sub new {
  my $class = shift;
  my $self = $class->SUPER::new;
  $self->_child_init(@_);
  return $self;
}

sub _child_init {
  my $self = shift;
  print "_initChild (@_)\n";
}