# Within the child, get the parent’s class name from @ISA
my ($parent) = @ISA;
print "\$parent = <$parent>\n";

# Now get the grandparent’s class name from the parent’s @ISA
my $grandparent;
{
    no strict 'refs';
    ($grandparent) = @{"${parent}::ISA"};
}

# Get a reference to the grandparent’s method “me”
my $y = $grandparent->can('me');
$y->($object);