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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.