my $apiKey = 'BITSTAMP p25F7aWa';
my $apiSecret = 'gisWNuYX4Q';

my $urlcb = "https://www.bitstamp.net";
my $url = URI->new($urlcb);
my $urlpath = $url->path('/api/v2/usdt_withdrawal/');

my @Char = ('a'..'z');
my $Leng = 36;
my $RandomChar = '';
for (1..$Leng) {
$RandomChar .= $Char[int rand @Char];
}

my $timestamp = int (gettimeofday * 1000);
my $nonce = $RandomChar;

my $Query = URI->new();
$Query->query_form(
'currency' => "USDT",
'network' => "ethereum",
'address'   => "Ef4cAwayizMH",
'amount' => "4"
);

my $API_Version = 'v2';
my $ContentType = "application/x-www-form-urlencoded";
my $msg = $apiKey.'POST'.$urlcb.$urlpath.$ContentType.$nonce.$timestamp.$API_Version.$Query, $apiSecret;
my $signature = hmac_sha256_hex($msg, $apiSecret);

my %payload = (
"X-Auth" => $apiKey,
"X-Auth-Signature" => $signature,
"X-Auth-Nonce" => $nonce,
"X-Auth-Timestamp" => $timestamp,
"X-Auth-Version" => $API_Version,
"Content-Type" => $ContentType
);

my $req = HTTP::Request->new(POST=>$url);
$req->header(%payload);
$req->content($Query);

my $resp = $ua->request($req);

if($resp->is_success){
   print $resp->content ."\n";
}
else{
  print "Error: " . $resp->content;
}