$old=select(STDOUT);
$|=1;
select($old);