package MyParent;
sub new {
  bless {};
}
package MySon;
use base qw(MyParent);
sub one {
  my ($self) = shift;
  print "one\n";
}
package main;
my $obj = MySon->new();
$obj->one();