my $HENDL = 'BLAH';

{
   say "Entering Chicken4Free";
   my $HENDL; # now the Chicken handler is local  - may be it's called FeilHändl in Bavaria
   open ($HENDL, "<", "wiener.wald") or die "No Chicken found at Chicken4Free!"; # hunt the chicken
   my $meal;
   while ($meal = <$HENDL> ) { # get some chicken pieces
      chop($meal);             # eat something
   }
   close($HENDL) or die "Oh! Chicken is living!?"; # call the waiter and leave
}

say "Back on the street!";

say "Now \$HENDL is always $HENDL";