$out = *STDOUT{IO};

##</code><code>##

$out = \*STDOUT;