#!/usr/bin/perl 

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

$|=1;

my $host = 'pause.perl.org:https';
my $port = 443;

my $client = IO::Socket::SSL->new(
    PeerAddr          => $host,
    PeerPort          => $port,
    Proto             => 'tcp',
    SSL_version       => 3,
    SSL_use_cert      => 0,
    SSL_verifycn_scheme => 1,
) or warn &IO::Socket::SSL::errstr;
print "Connected\n";
print $client "GET / HTTP/1.0\r\n\r\n";
$client->verify_hostname($host, 'http');

my ( $subject, $issuer, $cn );
print $subject = $client->peer_certificate('subject');
print $issuer  = $client->peer_certificate('issuer');

$client->close( SSL_no_shutdown => 1 );