#!/usr/bin/perl
use JSON::RPC::Client;
use Data::Dumper;
my $client = new JSON::RPC::Client;
my $uri = 'http://IP/perl/test.cgi';  
$client->prepare($uri, ['test']);
$str= $client->test('testing');
print "$str\n\n";