Хочу отправить сообщение по jabber.
Через Net::Jabber выдает ошибку:
Can't use an undefined value as a HASH reference at /usr/share/perl5/XML/Stream.pm line 1165.
Есть простой пример для Net::Jabber? Может еще какие-нибудь простые модули? Или почему вылетает из Net::Jabber?
Собственно сам код:
#use Net::XMPP;
#my $con=new Net::XMPP::Client();
#$con->Connect(hostname=>"jabber.examples.org");
#$con->AuthSend(username=>"user",
# password=>"pass",
# resource=>"ALARM!");
#my $msg=new Net::XMPP::Message();
#$msg->SetMessage(to=>"user2\@examples.org",
# from=>"admin\@examples.org",
# body=>"My First Jabber Message");
#$con->Send($msg);
#$con->Disconnect();