##
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" );