sub foo {
  local *FH = shift;
...
  read FH, ...
}