Здравствуйте, Eugeny__, Вы писали:

E> Лично я бы с удовольствием. Но как заставить перейти на другой протокол все мои 180 контактов в аське?

Не помню у кого спер (если автор это читает, поставьте (с)):

#!/usr/bin/perl

use Net::OSCAR qw(:standard);

exit if fork;

$uin      = "1234567890";
$password = "**********";

sub im_in
{
    my($oscar, $sender, $message, $is_away) = @_;
    print "[AWAY] " if $is_away;
    $oscar->send_im($sender, "Я больше не использую ICQ. Для связи со мной используйте
 Jabber [http://www.jabber.ru]. Мой JID аккаунт xxxxxx\@jabber.ru. Удачи!");
}

$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->signon($uin, $password);

while (true)
{
    $oscar->do_one_loop();
}