lockの実装
例えば1.datには1.lckというロックファイルを作るとする
書き込むスレッドの管理番号を$iとすると
$fname=$i."dat";
$lname=$i."lck";
$j=0;
while(-e $lname && $j<=60)
{
sleep(1);
$j++;
}
$j!=61 or error("書き込み待機タイムアウト");
/* 書き込み動作 */