{ package Grandpa;
$name = "Tom";
sub greetme {
print "$Child::name, $name.\n";
}
}
{ package Parent;
# This package is empty
}
{ package Child;
$name = "Baby";
print "Hi I'm $name in the Child Package here.\n";
Parent->greetme();
}