sub webhack {
my $res = $ua->post('http://forum.web-hack.ru/index.php?act=Login&CODE=01', {'referer' => '', 'UserName' => $login2, 'PassWord' => $password2, 'CookieDate' => 1 })or die 'Bad connect to web-hack.ru';
$res = $ua->get('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10');
# login 2 и password 2 соотв пароль и логин на вх

my $ans=$res->content;
my $ww=index($ans,"name='auth_key'");
$ans=substr($ans,$ww+23,32);         # выдираем aut key он в скрытом поле в форме добавл топика

# до этого момента все идет нормально только с отправкой бага

$res = $ua->post('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10', {'act' => 'Post', 's' => '', 'f' => 10,'auth_key' => $ans, 'CODE' => 01,'TopicTitle' => $zag ,'TopicDesc' => '','bbmode' => 'normal','fcolor' => '','fsize' => '','ffont' => '','quicklist' => '','talign' => '','Post' => $text,'enableemo' => 'yes','enablesig' => 'yes','iconid' => 0}) or die 'Bad connect to web-hack.ru';

# засылаем на сервак zag и text название темы и текст топика  
}