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