in reply to Re: Re: Open pipe to a function?
in thread Open pipe to a function?

How about 
use IO::Tee;
open(ERRLOG, '>error.txt');
my $tee = new IO::Tee(\*STDOUT, \*ERRLOG);
*STDERR = $tee;

[download]

- Tom

In Section Seekers of Perl Wisdom