#!usr/bin/perl

use Net::XMPP;
use utf8;

my $Con = new Net::XMPP::Client();

$status = $Con->Connect(
    hostname => "jabber.ru",

);

@result = $Con->AuthSend(
    username => "xxxxxxxxx",
    password => "xxxxxxxxx",
    resource => "Work"
);
msg();
sub msg{
my $sid = shift;
my $msg = shift;

my $from = $msg->GetFrom;
my $to = $msg->GetTo;
}



@roster = $Con->RosterGet();

   $Con->MessageSend(to=>"xxxxxxxxxxxx@qip.ru",
                      body=>"kiss my ass yopte\n",
                      thread=>"ABC123",
                      priority=>10);

    $Con->SetMessageCallBacks(
chat => \&messageCB,
);



$Con->Disconnect();