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