#!perl -w
#!d:\perl\bin\perl.exe
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use SOAP::Lite;
# real user/passwords are used to give you a chance to try it out-of-the-box
# you may put your own user/password
my $s = SOAP::Lite
-> proxy('jabber://soaplite_client:soapliteclient@jabber.org:5222/soaplite_server@jabber.org/')
;
my $r = $s->echo('Hello, Jabber world!');
print $r->fault ? $r->faultstring : $r->result;