#!/usr/bin/perl
use warnings;
use strict;

use Digest::SHA qw(hmac_sha256_hex);

my $digest=hmac_sha256_hex("138539083512345apiKeyDEMO","apiSecretDEMO");
print "Digest=$digest\n";