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

use LWP::UserAgent;
use Data::Dumper;

my $url      = 'https://server.cryptomix.com/secure/';
my $keyfile  = 'foo.key';
my $certfile = 'foo.cert';
my $ua = LWP::UserAgent->new (
    ssl_opts => {
        SSL_cert_file => $certfile,
        SSL_key_file  => $keyfile
    }
);

my $res = $ua->get ($url);
print $res->status_line;
print $res->decoded_content;