$fd = fileno($fh);
open STDOUT, ">&$fd"

##</code><code>##

local *STDOUT = *$fh;