#! 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";

##</code><code>##

This is a hexdigest->b4a5e0ad9fce13bf90bcb09147ba9200431389e28fa40eaa2a0dcd41d6544470
This is a base64digest->tKXgrZ/OE7+QvLCRR7qSAEMTieKPpA6qKg3NQdZURHA