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

# xml rpc server
$server = RPC::XML::Server->new(host => 'localhost', port => '8888', queue=>'5', no_default=>1, no_http=>0);

$server->add_method({ name => 'test',  signature => [ 'struct struct' ], code => \&test });

$server->server_loop;

sub test {

print Dumper(\@_);	
my $serv = shift;
my $hash = shift;
print Dumper(\$hash);
my %hash = %$hash;
print Dumper(\%hash);

	if ($hash{called_number_int}) {
		return {'answer' => 'OK bejby'};
	} else {
		return RPC::XML::fault->new('444', 'not good');
	}
}