my $host = "localhost";
my $port = 8011;
my $cli = RPC::XML::Client->new("http://$host:$port/RPC2");
my $cli_client = RPC::XML::request->new('AnaXmlRpcHandler.execute', ,RPC::XML::array->new(map {RPC::XML::string->new($_)} @arr));