select STDOUT;
$| = 1;
open SAVEOUT, ">&STDOUT";
close STDOUT;
open STDOUT, ">&SAVEOUT";