select((select($fh), $|=1)[0]); #### use IO::Handle; # update: not needed for Perl 5.14+ # ... $fh->autoflush(); #### print $file $name, $rank, $serial_num, "\n"; #### print {$file} $name, $rank, $serial_num, "\n"; #### use IO::Handle; $file->print( $name, $rank, $serial_num, "\n" );