If collecting all output in the same variable is OK for you, then using Tie::STDERR would do the job:

use vars qw($OUTPUT);
use Tie::STDERR \$OUTPUT;
*STDOUT=\*STDERR;
[download]

You might want to save the value of STDOUT if you would like to print something after you are done filtering etc.

goldclaw