#! perl
use strict;
use warnings;
use Digest::SHA qw(sha256_hex sha256_base64);

my $data1 = '0123456789ABCDEF';
my $data2 = 'FEDCBA9876543210';

my $digest1 = sha256_hex   ($data1 . $data2);
my $digest3 = sha256_base64($data1 . $data2);

print "This is a hexdigest->"    . $digest1, "\n";
print "This is a base64digest->" . $digest3, "\n";