Помогите разобраться, скачал модуль ICQ.pm (Net-ICQ-0.16 by Jeremy Muhlich), написал код, как в документации написано:
#! /usr/bin/perl
use Net::ICQ;
$uin=13733484;
$password="xc3dkfsss";
$icq = Net::ICQ->new($uin, $password);
$icq->connect();
$icq->add_handler(\'SRV_SYS_DELIVERED_MESS\', \\&on_msg);
$params = {
\'type\' => 1,
\'text\' => \'Hello! You!\',
\'receiver_uin\' => 128063466
};
$icq->send_event(\'CMD_SEND_MESSAGE\', $params);
$icq->start();
-Не работает... точнее подсоединение к серверу проходит а сообщение не шлется. И сам скрипт "зависает" , т.е. не вываливается в командую строку
Что же делать? Может другой модуль надо установить?