sub LOCK { sleep 1 until mkdir "$_[0].lck", 0755 }
sub UNLOCK { rmdir "$_[0].lck" }