http://www.perlmonks.org?node_id=69770


in reply to Redirecting STDOUT to a FileHandle ?

use IO::Wrap; my $stdout = wraphandle(\*STDOUT);
that sort of thing? (iirc IO::Wrap is not core, but on CPAN)