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


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;

- Tom