$fh = do {local *FH};
open ($fh, $filename)