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

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

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)