open(OUT,">$logfile") ←この時点でファイルはクリアされる
　　　　　　　　　　　　　　←ここで別プロセスがファイルを操作する危険も
flock( OUT, 2 );
print OUT @lines;　　　←この前までにプロセスが死んだらファイルは破損
flock( OUT, 8 );
　　　　　　　　　　　　　　←ここで別プロセスがファイルを操作する危険も
close(IN);　　　　　　　　←実際の書き込みが行われるのはここ（オートフラッシュなしの場合）