ファイルロックの方法
ファイルはopen文で開いた直後にロックして、閉じた直後にロックの解除をおこなう。

open(OUT,”>>name.txt”); flock(OUT,2); print OUT $a; #ファイルへの書き込み close(OUT); flock(OUT,8);

ファイルのロックには2行目のようにflock(ファイルハンドラー,2);と書く。
2はロックすることを表している。解除の方法はflock(ファイルハンドラー,8);と書く。

注意：WindowsのActivePerlではflockを使うことができないので、#をつけてコメントにしておく。