{ package MyBase;
  sub new {
      my $class = shift;
      warn "Constructing $class\n";
      bless {}, $class;
  }
}

{ package MyChild;
  use base 'MyBase';
}

package main;
use feature 'say';
my $p =  MyBase->new;
my $ch = MyChild->new;
say for $p, $ch;