Нужна программка массовой отрпавки сообщений ICQ,

гугл закрыли на тех обслуживание?

http://search.cpan.org/~toddr/Net-OSCAR-1.928/lib/Net/OSCAR.pm

#!/usr/bin/perl -w 



use Net::OSCAR;

use strict; 



my($UIN, $PASSWORD, $err, $oscar, $text); 



sub send_answer();



print("UIN > ");

chomp($UIN = "uin");  

print("Password > ");

chomp($PASSWORD = "password"); 

print("Text > "); 

chomp($text = "icq"); 

$oscar = Net::OSCAR -> new();

$oscar -> set_callback_im_in(\&send_answer); 



$err = $oscar -> signon($UIN, $PASSWORD);



while (1) { 

$oscar->do_one_loop(); 

sleep(1); } 

sub send_answer() { 

my($oscar, $sender, $msg); 



($oscar, $sender, $msg) = @_; 



print("<== $sender\n$msg\n==> $text\n"); 



$oscar -> send_im($sender, $text); 



if ($msg eq "quit") { 

$oscar -> signoff(); 

exit(); } 

}