以前一度質問した内容ですが、よろしくお願い致します。
全部で１１個のＣＧＩから１つのデータファイル（テキスト）を参照させている
のですが、最近そのデータが消えることがあります。そのデータファイルは現在、
１５００くらいのレコードがあり、追加書き込みができます。データが消えると
いうのは、１〜２０レコードがすっぽり消えていたり、レイアウトがずれたりも
します。
　以前の質問時には、ファイルロックを書き込みできるＣＧＩのみ記述していた
ので、読み込みのみのＣＧＩにも記述すべきとのアドバイスを頂き、修正したの
ですが、再発してしまいました。
ファイルロックの記述は以下のような感じですが間違っているでしょうか？

if ( !open (ABC_OUT, ">$abc_file") ){
print "ファイル読み込みオープンエラー<BR>\n";
}
else{
eval{ flock(ABC_OUT, 2); };
（省略）

ファイルロックが機能しているか確かめる方法とかあるのでしょうか？
また、ファイルを掴んでいる人のＰＣがフリーズしたりしてファイルが壊れる
なんてこともあるのでしょうか？