in reply to On being 'critical'

You can use lexical file handles under recent version of perl, and you can do the open statement with the 3-arg version too:

open my $THELOG, '>&', \*STDOUT or die $!;

Check out open.

Ted Young

($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)