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

##</code><code>##

Digest=696e087f4b1902aa58d35e75b4600580d70a92ed68b23379373117fb3fe3064a