my $fh = do { local *FH; \*FH };