Доброго времени суток!

ActivePerl 5.8.3 под Windows упорно не хочет корректно вызывать lock. Например, есть код:

        open(FILE, "$boardsdir/$currentboard.dat") || error("$err{'001'} $boardsdir/$currentboard.dat");
        lock(FILE);
        chomp(@boardinfo=<FILE>);
        unlock(FILE);
        close(FILE);

И при попытке вызвать скрипт выдается такое сообщение об ошибке:

Can't modify constant item in lock at g:\site2\apache\htdocs\cgi-bin\admin\banners\view.cgi line 91, near "FILE)"

Если кто знает, объясните, пожалуйста, в чем тут дело? Если просто закомментировать lock, то скрипт работает, но это как-то криво...

В общем-то, это WebApp 0.9.9, если кому интересно. У него в настройках есть отключение каких-то lock, но эта опция не влияет на данную ошибку.