Help for this page

Select Code to Download

Select or download this

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

Select or download this

{
  local(*FH);
...
  $fh = \*FH;
}
print $fh "Foo\n";