ICQ bot

Бот на перле, будет оповещать асечников о том, что ты перешел на Jabber

#!/usr/bin/perl
use Net::OSCAR qw(:standard);
my $text = 'Ася сосёд, мой JID user@jabber.net';
$uin_conn="123456789";
$password="qwerrty";

my $aimbot = Net::OSCAR->new();
$aimbot->signon($uin_conn, $password);

$aimbot->set_callback_im_in (\&on_im);
sub on_im {
my ($aimbot, $sender, $message, $away) = @_;
$aimbot->send_im($sender, $text );
}
while(1) {
$aimbot->do_one_loop();
}