cpanfile

requires 'Digest::SHA';
requires 'MIME::Base64';

generate-ses-credential

#!/usr/bin/env perl

use 5.012_000;

use Digest::SHA qw/hmac_sha256/;
use MIME::Base64;

my $key = "himitsu";
my $message = "SendRawEmail";
my $version_byte_string = pack("c", 2);
print "$version_byte_string\n";

my $signature = hmac_sha256($message, $key);

my $signature_ver = $version_byte_string . $signature;
my $password = encode_base64($signature_ver);
print $password . "\n";