use Net::Jabber qw( Client ); 

my $client = Net::Jabber::Client->new(); 
my $status; 

$client->Connect(hostname=>'localhost'); 

if($client->Connected()) { 
     $status = $client->AuthSend(username=>'emsng', 
                                 password=>'emsng'); 
      my @response =  
               $client->RPCCall(to=>'dst@localhost/XMLRPC', 
                                methodname=>'CreateContext',  
                                params=>[ { 
                                ApplicationName=>'EMSngTEST', 
                                MaxIdleDuration=>'5' } ] ); 
      die Dumper(\@response); 
}