#!/usr/bin/perl

use JSON::RPC::Client;

my $client = new JSON::RPC::Client;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

my $port = $ARGV[0];
$port = 88888 unless $port;
my $uri = 'https://127.0.0.1:'.$port.'/test';
my $obj = {
method => 'get_ticket_info', # or 'MyApp.sum'
params => [105195,555435],
};

my $res = $client->call( $uri, $obj );