Вопрос вот в чем!
В перл скрипте .... в самом начале идет проверка ,
если нету логина
if ($login eq \'\') {formpass(); тут получение еще данных и загнать их в переменые $login и $pass}
и дальше обрабока этих переменых и вызов функций перла.
Функция formpass надо чтоб вызвала форму в которой чел введет пароль и Логин и далее уже см. выше!