use JSONRPC::Transport::HTTP;
use Data::Dumper;

my $uri = 'http://localhost:8080/Finance/Bank/JSONFactory';

my $res = JSONRPC::Transport::HTTP
	   ->proxy($uri)
	   ->call('accounts',[{bank_name => 'pc'}])
	   ->result;

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