my $oldhandle = select(FILEHANDLE);
$|=1;
select( $oldhandle );