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

{
   my $george="my friend George";
   deep();
   $henry=\$george;
}
deep();

    Source: geocities.com/robinchatterjee