sub deep
{  print "\$george is $george\n\$henry is $henry\n"; }

{
   local $george="King of England";
   deep();
   $henry=\$george;
}
deep();

    Source: geocities.com/robinchatterjee