my $oldfh = select($fh); 
$| = 1; 
select($oldfh);