package child;
sub tellName  {
    my($self)=$_[0];
    if ( caller eq __PACKAGE__ ) {
        print "$self->{'nickName'}.\n";
    }
    else {
        $self->SUPER::tellName();
    }
}