#!/usr/bin/perl  
use strict;  
use Net::XMPP;

my ($recip, $msg) = @ARGV;

if(! $recip || ! $msg) {  
    print 'Syntax: $0 <recipient> <message>\n';  
    exit;  
}

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

my $status = $con->Connect(  
    hostname => 'xx.xx.xx.xx',port=>5222, 
    connectiontype => 'tcpip',tls => 0);  
	
die('ERROR: XMPP connection failed') if ! defined($status);  
    my @result = $con->AuthSend(  
        username => 'Uname',  
        password => 'PWord',
	    resource=>'Test');   
die('ERROR: XMPP authentication failed') if $result[0] ne 'ok';  
die('ERROR: XMPP message failed') if ($con->MessageSend(to => $recip, body => $msg) != 0);  
print 'Success!\n';