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