Skip to content

Instantly share code, notes, and snippets.

Created Oct 9, 2008
What would you like to do?
#!/usr/bin/env perl
use strict;
use warnings;
use Net::SSL::ExpireDate;
use Crypt::OpenSSL::X509;
my @cert_files = @ARGV;
for my $cert_file (@cert_files) {
my $x509 = Crypt::OpenSSL::X509->new_from_file($cert_file);
print $x509->subject, "¥n";
my $ed = Net::SSL::ExpireDate->new( file => $cert_file );
print $ed->begin_date , "¥n";
print $ed->expire_date, "¥n";
$ ./
C=US, ST=California, L=Mountain View, O=Google Inc,
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment