>>804
802です。お答えありがとうございました。
ごめんなさい、勘違いしてました。ちゃんとロックできました。
ところで、質問ですけども、

sub create_lock {
　　local($retry) = 5;
　　if (-e $lockfile) {
　　　　local($mtime) = (stat($lockfile))[9]; # ←この部分の[9]
　　　　if ($mtime < time - 60) {
　　　　　　&unlock;
　　　　}
　　}
　　while (!mkdir($lockfile, 0755)) {
　　　　if (--$retry <= 0) {
　　　　　　&error("BUSY");
　　　　}
　　　　sleep(1);
　　}
　　exit;
}

↑の文章の
local($mtime) = (stat($lockfile))[9];
特に[9]の意味が分からないのですが、この文章は何を意味するのでしょうか？