Извини, что долго не отвечал... Провайдер заглох немного.
По скрипту:
начиная с 132 после "close (GB);" строки пиши:
open(MAIL,"|/usr/sbin/sendmail you\\@server.ru");
print MAIL "Сообщение от: $name\\n";
print MAIL "E-mail: $mail\\n";
print MAIL "url: $url\\n";
print MAIL "data: $pdata\\n";
print MAIL "city: $city\\n";
print MAIL "text: $text\\n";
Это конечно грубо говоря. Найди доку по сендмейлу, разберись с кодировкой и все. Я думаю все будет ОК.
