my $fh = do {local *FOO};