#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
use LWP::Debug '+';


# create data
my $content = <<"START" ;
<?xml version="1.0"?>
<methodCall>
<methodName>sum</methodName>
<params>
<param>
<value><double>1.12</double></value>
</param>
<param>
<value><double>4.12</double></value>
</param>
</params>
</methodCall>
START

print $content ;

my $req = HTTP::Request->new (POST => 'http://10.0.0.2:8999/RPC2');
$req->header('Content-Type' => 'text/xml');
$req->content($content);

my $response = $ua->request($req);

print $response->content;