package Parent;

sub identify { return name(); }

sub name { return 'Parent'; }

1;

package Child;

use Parent;

@ISA = qw(Parent);

sub name { return 'Child'; }

1