my $old = select $fh;
$|++;
select $old;