open (SAVEOUT, ">&STDOUT") or die "Unable to copy STDOUT : $!";
open (STDOUT, ">stdout") or die "Unable to open new STDOUT : $!";
select STDOUT;
$| = 1;