in reply to Global filehandles?
incidentally, i have found the Log::LogLite module helpful for logging
perl -e"\$_=qq/nwdd\x7F^n\x7Flm{{llql0}qs\x14/;s/./chr(ord$&^30)/ge;print"