use Jabber::RPC::Client; 
my $client = Jabber::RPC::Client->new(server=>'localhost',   
                                      identauth=>'emsng:emsng', 
                                      endpoint=>'dst@localhost/XMLRPC', ); 

my $response = $client->call('CreateContext', { 
                             ApplicationName=>'EMSng',  
                             MaxIdleDuration=>'5' } ); 

print $response || $client->lastfault, "\n";