#!/usr/bin/env perl
use 5.12.0;
use warnings;
use Net::SSLeay;
my $bio  = Net::SSLeay::BIO_new_file( shift, 'r' );
my $cert = Net::SSLeay::PEM_read_bio_X509($bio);
say Net::SSLeay::X509_get_fingerprint( $cert, 'sha256' );