#!/usr/bin/perl

use strict;
use warnings;

require RPC::XML;
require RPC::XML::Client;


my $client = RPC::XML::Client->new('http://test.blogspam.net:8888');

#
#  The comment we're testing.  In the perl XML-RPC mapping
# a struct is a hash.  Makes sense.
#
my %params = (
              ip      => "192.168.1.1",
              comment => "You suck"
             );

#
#  Send the request
#
my $res = $client->send_request('testComment', \%params);

#
#  Show the response
#
print "Response: " . $res->value . "\n";