in reply to Switching between output to file and STDOUT

$out = *STDOUT{IO};

[download]
or 
$out = \*STDOUT;

[download]
Boris

In Section Seekers of Perl Wisdom