スレの趣向とは少し外れるんですが、
下記のロック、アンロックはどうでしょうか？

# lock routine
sub lock {
　$retry = 5;

　if (-e $lockex_file) {
　　$mtime = (stat($lockex_file))[9];

　　if ($mtime + 600 < time) {
　　　rename($lockex_file, $lock_file) || &error("lock error");
　　}
　}

　while (1) {
　　last if rename($lock_file, $lockex_file);

　　if (--$retry < 0) {
　　　&error("lock error");
　　}
　}
}

# unlock routine
sub unlock {
　if (-e $lockex_file) {
　　rename($lockex_file, $lock_file) || &error("lock error");
　}
}

評価お願いします。