use Net::Jabber qw(Client);
my $jabber = Net::Jabber->new();
$jabber->Connect( hostname => 'jabber_server.domain.com' ); 
$jabber->Connected or die "Can't connect to Jabber server\n";
$jabber->Process(5); # Set a timeout

# Right out of the Net::Jabber::Protocol POD
$jabber->MessageSend(to=>"bob@jabber.org",
                      subject=>"Lunch",
                      body=>"Let's go grab some...\n",
                      thread=>"ABC123",
                      priority=>10);

$jabber->Disconnect;