#!/usr/bin/env perl
use strict;
use warnings;

use JSON::RPC::Simple::Client;
use Data::Dumper;

my $c = JSON::RPC::Simple::Client->new("https://127.0.0.1:4711/json-rpc/API", {
        debug => 2,
    SSL_ca_file     => "ssl/cacert.pem",
        SSL_cert_file   => "ssl/client-cert.pem",
        SSL_key_file    => "ssl/client-key.pem",
    SSL_passwd_cb   => sub { return 'system' },
});

my $results = $c->echo({
        lala => 'foo',
        lalu => 'bar',
});

print Data::Dumper::Dumper($results) . "\n";