#!/usr/bin/perl -w

require 5.6.0;
use strict;
use LWP;

our $hostname = shift or die "Syntax: $0 hostname\n";
our $ua = LWP::UserAgent->new;
our $req = HTTP::Request->new(HEAD => "https://$hostname");
our $resp = $ua->request($req);

print "           Site: ", $resp->header('Client-SSL-Cert-Subject'), "\n";
print "Cert. Authority: ", $resp->header('Client-SSL-Cert-Issuer'), "\n";
print "         Cipher: ", $resp->header('Client-SSL-Cipher'), "\n";