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