use CGI qw/:standard/;
$login=param(\'login\');
где \'login\' - имя поля ввода, а $login - Сами знаете что...
И вопрос: сразу это было не написать, а?! Либо тут один лентяи... либо: "Мы не будем тратить наше драгоценное время на какого-то <далее неразборчиво>". Ужасно, господа, ужасно! Не хотите вы помогать, не хотите... Берите пример с gamedev.ru/forum - отличные, отзывчивые люди...
P.S. А форум для того и форум, чтобы ПОМОГАЛИ, а не посылали к документации.
P.S. И, мать вашу, код, который я написал - РАБОЧИЙ! Просто он из текстовой строки вырезает нужные фрагменты, но машина - не человек и режет так, как сказали. "Не рабочий", блин... Не подходящий к данной задачи и "рабочий" - это абсолютно разные вещи, господа!