write() on unopened filehandle STDOUT at /usr/lib/perl5/vendor_perl/5.8.2/Test/Harness.pm line 665.