#!/usr/bin/env perl 
use strict;
use warnings;
use IO::Socket::SSL;

print "IO::Socket::SSL version $IO::Socket::SSL::VERSION\n";

for my $proto ('SSLv3', 'TLSv1_2') {
    my $ssl = IO::Socket::SSL->new (
        PeerHost => 'perlmonks.pairsite.com',
        PeerPort => 443,
        SSL_version => $proto
    );

    print "SSL connection with $proto " .
        ($ssl ? 'set up' : 'failed') . "\n";
}