#!/usr/bin/perl

 use JSONRPC::Transport::HTTP;
 my $uri = 'http://127.0.0.1:8080/MyApp/Test/';

 my $res = JSONRPC::Transport::HTTP
            ->proxy($uri)
            ->call('echo',['This is test.'])
            ->result;

 if($res->error){
   print $res->error,"\n";
 }
 else{
   print $res->result,"\n";
 }

 # or

 my $client = JSONRPC::Transport::HTTP->proxy($uri);

 print $client->echo('This is test.'); # the alias, _echo is same.