ファイルなどの一般的な共有資源に対して排他制御をするときは、flock()もしくは、 use Thread::Semaphore;をしてセマフォを生成する。 スレッド間の共有変数に対して排他制御を掛ける時はlock()。 簡単なlockを使った排他制御を試してみた。