#!perl
use strict;
use Digest::SHA qw( hmac_sha256_base64 );
my $digest = hmac_sha256_base64("abcdef", pack "H*",'1234567890');
print $digest;