#!/usr/bin/perl -w
# sha256sum.pl - by dual
use strict;
use Digest::SHA2;
my $file = shift or die ">>> Need file";
open FILE, $file or die ">>> Can't open $file";
my $sha2obj = new Digest::SHA2;
$sha2obj->addfile(*FILE);
my $digest = $sha2obj->hexdigest();
print "$digest  $file\n";