Select Code to Download

package Base ;

...
  $s->SUPER::do;
  print "hi from pkg Three\n";
}

my $three = Three->new;
$three->do;

hi Base here
hi from pkg one
hi from pkg two
hi from pkg Three