my $obj = Son->new; print $obj->call; package Parent; sub call {char()} sub char {'parent'} package Son; use base 'Parent'; sub new {return bless {}, 'Parent'}; sub char {'son'}