#!/usr/bin/perl

print "Content-type: text/html; charset=windows-1251\n\n";

use CGI;
$cgi = new CGI;
$username=$cgi->param("username");
$act=$cgi->param("act");
$spec=$cgi->param("spec");

####HTML-форма, в котрую пользователь
####вводит свои данные:
if ($act eq "")
{
 print qq~
 <form action="this_script.pl" method="post">
 Ваше имя: <input name="username"><br>
 Ваша специальность: <input name="spec"><br>
 <input type="submit" value="Отправить данные">
 <input type="hidden" name="act" value="addnew">
 </form>
 ~;
}

####Добавляем нового пользователя после нажатия
####кнопки "Отправить данные" в HTML-форме:
if ($act eq "addnew")
{
 open NU, ">$username.txt"; #открываем текстовый файл
                            #имя которого - имя_пользователя.txt
 print NU "$username\n$spec";#сохраняем в файле данные пользователя
 close NU;
 print "Данные успешно сохранены!";
}