#!/usr/bin/perl

use strict;
use autodie;
use warnings;
use IO::Socket::SSL qw/debug3/;

my $host = 'localhost:https';

my $ssl_sock = IO::Socket::SSL->new(
    PeerAddr => $host,
    PeerPort => 9000,
    Proto    => 'tcp',
    Reuse    => 1,
);
$ssl_sock->close('SSL_ctx_free=1');