$oldfh = select(WRITE);
$| = 1;
select($oldfh);