use warnings;
use Net::INET6Glue::INET_is_INET6;
require RPC::XML;
require McClient;

my $port = 8011;
my @arr = @ARGV;
my $host = "::1";

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));