{
   my $fh;
   {
      local *HANDLE;
      open(HANDLE, '>', 'temp') or die;
      print HANDLE "foo\n";
      $fh = *HANDLE{IO};
   }

   print $fh "bar\n" or die;  # Works.
}
# Now it's closed.
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.