Смена пароля ICQ на PERL

Я особо перл не знаю но мне нужно именно на перле.
но хочу написать скрипт для смены паролей на аське.
Написал кое какой говнокод.
Скажите пожалуйста в ту ли я сторону капаю или нет. мб такое уже есть(нужен именно перл) ? help

эсли менять через браузер то :

PHP:

 #!/usr/bin/perl
 use LWP::UserAgent;
 use CGI qw(header -no_debug);
 use HTTP::Cookies;

 my $log =  '123456';  #юин
 my $password =  '123456';  #пас
 my $new_password =  '1234567890';  #пас

 my $ua = LWP::UserAgent->new;
 my $cookies = HTTP::Cookies->new(agent => 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10');
 $ua->cookie_jar($cookies);

 my $req = '';
 
 $req = $ua->post('https://www.icq.com/karma/login_page.php', 
 { uin_email => $log, 
   password => $password
 } )->as_string;             #логинимся
 print " Zaloginilis ($log;$password)\n";
  sleep(3);
 $req = $ua->post('https://www.icq.com/support/change_password/process.php', 
 { act => 'change_pass', 
   lname => "null", 
   uin => $log, 
   old_password => $password, 
   new1_password => $new_password, 
   new2_password => $new_password 
 } )->as_string;             # меняем пас
 print " Smenili parol ($log;$new_password)\n";
 #$req = $ua->get('https://www.icq.com/support/')->as_string;
 #my $r = $req =~ //;
 
 sleep(999999999);

 

Если требуется менять много паролей, то советую покурить существующие исходники или отснифить как это делает QIP, к примеру.
В перле сам не шарю

 

пошёл снифать qip

 

Если работать через протокол ICQ, то сначала нужно авторизоваться.
Процедуру авторизации можно позаимствовать из WebIcqLite (на PHP)

 

WebIcq(Lite|Pro) давно сдохли.

Юзаем mlcq, очень удобный и легко переделывается.