{ 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(); }