#!/usr/bin/perl

use XMLRPC::Lite;
use Data::Dumper;

my @params = ("param 1", "param 2");
my $proxy_server = "http://someserver.com/some/path";

my $response, $result;

eval {
    $result = XMLRPC::Lite->proxy($proxy_server,timeout => 10)->call('Object.someMethod',
								     @params);
};

print Data::Dumper->Dump([$result])."\n";