Select Code to Download

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

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

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