#!/usr/bin/perl

use AnyEvent::XMPP::Client;
use AnyEvent;

   my $cl = AnyEvent::XMPP::Client->new;
   $cl->add_account ($ARGV[0], $ARGV[1], $ARGV[2], undef, undef);
   $cl->start;
   $cl->send_message ($ARGV[4], $ARGV[3], undef, undef);
   $cl->disconnect(Done);