#!/usr/bin/perl -w
require RPC::XML;
require RPC::XML::Client;
use Data::Dumper;



my @params = ({
					'called_number_net'=>{"nat"=>3,"number"=>223344600},
					'called_number_int'=>'+420223344600',
					'event_type'=>1,
					});


$cli = RPC::XML::Client->new('http://localhost:8888/RPC2');
$request = RPC::XML::request->new('test', @params);
$resp = $cli->send_request($request);
print Dumper(\$resp);

$hash = $resp->value;

print Dumper (\$hash);

print $hash->{answer};
print "\n";