{
  local(*FH);
  open(FH, "<whatever")
}

##</code><code>##

{
  local(*FH);
  open(FH, "<whatever")
  $fh = \*FH;
}
print $fh "Foo\n";