my $fh = do {local *FH};