А разве на булке нет ограничения неправильных вводов пароля?

И куда этот код пихать? В компилятор perl? Или заливать на хостинг с поддержкой перла?