use MIME::Base64 qw/decode_base64/;
while ( my $filename = shift ) {
	my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
		$atime,$mtime,$ctime,$blksize,$blocks) = stat $filename;
	open FILE, "<$filename" or die "no such file";
	binmode FILE;
	my $pem_cert;
	read FILE, $pem_cert, $size;
	close FILE;
	$pem_cert =~ /-----BEGIN CERT\w*-----(.+?)-----END CERT\w*-----/s;
	my $der = decode_base64($1);
	decodeCert( $der );
}