как в perl проверить пользователя в jabber (существует ли он)?

Непример перед отправкой:

use strict;
use Net::XMPP;
use utf8;
my $server = 'localhost';
my $port = '5222';
my $username = 'adm2';
my $password = '123';
my $resource = 'test';

my $msg = 'Текс сообщения';
my $rcpt = 'adm@domain.loc';
my $type = 'headline';

my $Connection = new Net::XMPP::Client();
$Connection->Connect(hostname=>$server, port=>$port);
$Connection->AuthSend(username=>$username, password=>$password, resource=>$resource);
$Connection->MessageSend('to' => $rcpt, 'type' => $type, '$subject'  => '', 'body'  => $msg);
$Connection->Disconnect();

• perl xmpp проверка пользователя,Azudim, 19:33 , 02-Дек-11
  • perl xmpp проверка пользователя,lioncub, 21:26 , 02-Дек-11

> как в perl проверить пользователя в jabber (существует ли он)?

Посмотри в Net::XMPP::Roster
http://search.cpan.org/~reatmon/Net-XMPP-1.0/lib/Net/XMPP/Ro...

>  Посмотри в Net::XMPP::Roster
> http://search.cpan.org/~reatmon/Net-XMPP-1.0/lib/Net/XMPP/Ro...

да вертел его, что-то не получается проверить.... ничего не возвращает... мне бы работающий пример...