in reply to Re^2: Tee STDOUT
in thread Tee STDOUT

Thanks, but I tried your code and still get 
write() on unopened filehandle STDOUT at /usr/lib/perl5/vendor_perl/5.
+8.2/Test/Harness.pm line 665.

[download]
Maybe this has something to do with the magic internals and filehandle remapping already going on in Test::Harness?

In Section Seekers of Perl Wisdom