Ничего секретного ... вот кусок кода ... весь код большой ... да и до этого есть только гет запросы которые в ответ получают нормальные страницы ...

$answ =~ s/\s*.*VIEWSTATE"\svalue="//igxsm;
$answ =~ s/"\s*.*\s*//igxsm;
my $VIEWSTATE = uri_escape("$answ");

$eve =~ s/\s*.*id="__EVENTVALIDATION"\s*value="//igxsm;
$eve =~ s/"\s*.*\s*//igxsm;
my $EVENTVALIDATION = uri_escape("$eve");



my $reg = $ua->post("http://profil.centrum.cz/icq.aspx",
['__EVENTTARGET' => ,
'__EVENTARGUMENT' => ,
'__VIEWSTATE' =>$VIEWSTATE,
'ua_icqstatus' => '1',
'ua_icq' => ,
'icqpassword' => ,
'passwordset' => '0',
'ua_securitycode_question' =>$scr,
'ua_securitycode_answer' =>$captcha,
'btnconnect' => '',
'__VIEWSTATEENCRYPTED=' => ,
'__EVENTVALIDATION' =>$EVENTVALIDATION,])->as_string;