Select Code to Download

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

Hello, I'm Alice.

Hi, I'm Billy The Kid.
Can't locate object method "tellName" via package "person" at ./classt
+est line 25.
Here's my mom: Hello, I'm

#!/usr/bin/perl
use strict;
...

my $son = new child();
$son->introduce();