my $ssl_key_path = '/etc/pki/tls/private/ca.key';
my $ssl_cert_path = '/etc/pki/tls/cert.pem';
my $port = $ARGV[0];
$port = 88888 unless $port;
my $server = JSON::RPC::Server::Daemon->new(
	LocalAddr => '127.0.0.1',
  	LocalPort => $port,
	SSL_key_file => $ssl_key_path,
	SSL_cert_file => $ssl_cert_path,
	SSL_verify_mode => 0
) || die "failed to listen: $!";

$server->dispatch({'/test' => 'myApp'});
$server->handle();

##</code><code>##

#!/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 );