Send SMS Transactional using Amazon::SNS (perl)

sample.pl

use strict;
use Amazon::SNS;
use LWP::ConsoleLogger::Everywhere ();

my $message     = 'test' . time;
my $phonenumber = '+55119000000';

$ENV{AWS_SNS_KEY}      = 'xxxxx';
$ENV{AWS_SNS_SECRET}   = 'yyy';
$ENV{AWS_SNS_ENDPOINT} = '';

my $sns = Amazon::SNS->new(
    {
        'key'    => $ENV{AWS_SNS_KEY},
        'secret' => $ENV{AWS_SNS_SECRET},
    }
);
$sns->service($ENV{AWS_SNS_ENDPOINT} || 'http://sns.us-east-1.amazonaws.com');


my $r = $sns->dispatch(
    {
        'Action'      => 'Publish',
        'Message'     => $message,
        'PhoneNumber' => $phonenumber,
        'Attributes'  => {
            'MessageAttributes.entry.1.Name'              => 'AWS.SNS.SMS.SMSType',
            'MessageAttributes.entry.1.Value.StringValue' => 'Transactional',
            'MessageAttributes.entry.1.Value.DataType'    => 'String',
        }
    }
);

my $success = $r->{'PublishResult'}{'MessageId'};
if (!$success) {
    my $err = $sns->error;

    #return $job->fail($r->error());
}
print $success . "\n";

#$log->update({sns_message_id => $success});