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

##</code><code>##

my $foo = gensym();
# And so on