指定したURLにSSLアクセスして、SSL通信が自己署名証明書（オレオレ証明書）かどうかざっくり調べる。

check_ssl_oreore.pl

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $url = 'https://www.verisign.co.jp/';

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } ) or die $!;
my $res = $ua->head( $url ) or die $!;

if ( $res->header("client-ssl-cert-issuer") eq $res->header("client-ssl-cert-subject") ) {
  print "SSL証明書が自己署名証明書（オレオレ証明書）です。\n";
}
else {
  print "SSL証明書が自己署名証明書ではないような気がします……\n";
}

exit;

__END__