LWP::Protocol::https::Socket: SSL connect attempt failed because of handshake problemserror:14094410:SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure at /usr/lib/perl5/vendor_perl/5.12.3/LWP/Protocol/http.pm line 57.

#!/usr/bin/env perl

package testAPI;

use base qw(JSON::RPC::Procedure);

sub echo : Public {
        my ($self, $data) = @_;
        return $data;
}

1;

use strict;
use warnings;
use JSON::RPC::Server::Daemon;

my $d = JSON::RPC::Server::Daemon->new(
        LocalAddr           => '127.0.0.1',
        LocalPort           => 4711,
        ReuseAddr           => 1,
        Timeout             => 30,
        SSL_use_cert    => 1,
        SSL_server              => 1,
        SSL_verify_mode => 0x03,
        SSL_ca_file             => "ssl/cacert.pem",
        SSL_cert_file   => "ssl/server-cert.pem",
        SSL_key_file    => "ssl/server-key.pem",
    SSL_passwd_cb   => sub { return 'system' },
);

$d->dispatch({
        '/json-rpc/API' => 'testAPI',
});

$d->handle();

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