package Parent;

sub name { return 'Parent' };
sub identify {
    my (%options) = @_;
    $options{ get_name } ||= \&name;

    print "Hello " . $options{ get_name }->() . "\n";
};

package Child;

sub identify {
    Parent::identify( get_name => sub { 'Child' });
};

1;