BTW if you change that to:

   if ( ref($self) eq 'person'){ $self->tellName(); }
   if ( ref($self) eq 'child') { person::tellName($self);}
[download]

It will then work as expected, though I still wouldn't recommend it because now you have no way to override the behavior of tellName.