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