use strict;
use warnings;
use IO::Socket::SSL qw(debug3);
use Net::SSLeay qw(get_https get_https post_https sslcat make_headers make_form);
$Net::SSLeay::ssl_version = 3;

$|=1;

my $host = 'host.com';
my $port = 443;
my $pathCert = '/home/cert/ops-cert-O.crt';
my $pathkey = '/home/cert/keys.key';
my $result ='';
my %headers = '' ;
($page, $result, %headers) = get_https($host, 443, '', '',  '', '', $pathCert, $pathkey);


print $result  ;