Насамом деле код не мой мне надо с ним тока разобратся. С ; в конце тоже не очень понятно но ошибка не вылезает. Тока вопрос остается темже StartHTML(); login_form(); finish_doc() стандартные это функции или нет. И плюс для кучи еще вопрос. В коде часто встречатся строчко $FORM{'login'} $FORM{'user'} $FORM{'pass'} и т д, так вот немогу понять из за не знание perl что это толком значит я так понимаю это просто присваивание значение переменной char? И какой смысл тогда имет такая строчка if($FORM{'login'})