in reply to Redirecting STDOUT to a FileHandle ?

use IO::Wrap;
my $stdout = wraphandle(\*STDOUT);

[download]
that sort of thing? (iirc IO::Wrap is not core, but on CPAN)

In Section Seekers of Perl Wisdom