#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::SSL::Utils qw(PEM_file2cert CERT_asHash);

my $cert = PEM_file2cert($ARGV[0]);
my $hash = CERT_asHash($cert);
for (sort keys $hash) {
	print "$_\n";
}
