Поставил модуль Net::ICQ, прочитал ман, посмотрел исходник vicq. Написал скрипт который должен выводить инфу, знаю UIN.

  #!/usr/bin/perl

  use Net::ICQ;

  $uin = "449742";
  $password="666";

  $icq = Net::ICQ->new($uin, $password);
  $icq->connect();
  $icq->start();
  $icq->add_handler('SRV_INFO_REPLY', \&on_msg);
  $params = {
  'uin' => 64432299
  };
  $icq->send_event('CMD_INFO_REQ', $params);
  sub on_msg {
  print @_;
  }

  Ну вот только не хочет он работать и все! Помогите плз! Уже неделю мучаюсь и ничего не могу сделать!

• RE: Помогите плз с модулем Net::ICQ ,konsul, 15:23 , 20-Дек-01
  • RE: Помогите плз с модулем Net::ICQ ,Sergei, 17:35 , 20-Дек-01

забей. модуль в процессе разработки. у меня он сообщения-то отправлял весьма пространно. то шлёт шлёт, потому бам и кирдык. поставь себе micq и expect'ом по нему.

vicq испольщует именно этот модуль! И там все это работает нормально