間違ったファイルロック？

初心者 1999/08/14(土) 19:45:50
open(OUT, "+>$logfile") or die "Can't write $logfile.\n";
eval{flock(OUT, 2)};
truncate(OUT, 0);
print OUT $count;
close(OUT);
というふうにロックしてみたのですが
簡単にログが消えてしまいます。
どこがいけないのでしょうか。
また、オープンの時もロックって必要なのですか？