Perlで効率の良いファイルロック方法を考えた！
データファイルとロック形式が複数でも無問題！可能な限りロックを成功させる！