my $foo = do {local *FH};
# etc as above