#!/usr/bin/perl

use Digest::SHA::PurePerl;

my $shad = eval("Digest::SHA::PurePerl::sha256('test');1") or die $@;
print "SHA value: ", $shad, "\n";