# Trick for generating a symbol to use as, for instance,
# a filehandle...
my $fh = do {local *FH};

##</code><code>##

do {print "Hello"; print " World\n";} for 1..10;

##</code><code>##

{print "Hello"}
{print " World\n"}
# etc