#!/usr/bin/perl

use strict;
use warnings;
use Net::INET6Glue;
require RPC::XML;
require RPC::XML::Client;

my $server_url = 'http://test.xmlrpc.wordtracker.com';

my $cli = RPC::XML::Client->new($server_url);
my $res = $cli->send_request( 'ping', 'guest' );
if ( ${$res} == 1 ) {
    print "Successfully pinged guest account", "\n";
    exit 0;
}
else {
    print "There were problems...\n";
    exit 0;
}