my $server      = "email-smtp.us-east-1.amazonaws.com";
my $port        = 465;
 
my $mailer = Email::Send->new( {
        mailer          => 'SMTP::TLS',
        mailer_args     => [
            Host        => $server,
            Port        => $port,
            User        => $username,
            Password    => $password,
            Hello       => 'testdomain.com',
        ]
} );
   
use Email::Simple::Creator; 
 
my $email = Email::Simple->create(
        header => [
                From    => $from,
                To      => $to,
                Subject => 'Test Email',
        ],
        body => 'This is a test',
);
   
eval { $mailer->send($email) };
 
die "Error sending email: $@" if $@;