# telnet email-smtp.us-east-1.amazonaws.com 465
Trying 107.20.160.81...
Connected to email-smtp.us-east-1.amazonaws.com.
Escape character is '^]'.
HELO adsf
Connection closed by foreign host.

##</code><code>##

open my $DEBUG, ">>smtp_log" or print STDERR "Unable to open smtp_log";
 
## Send an email
my $sender = new Mail::Sender {
        from => $from,
        smtp => $server,
        port => '465',
        auth => 'login',
        authid => $username,
        authpwd => $password,
        debug => $DEBUG, 
        debug_level => 4,
} or print STDERR "Can't create Mail::Sender object: $Mail::Sender::Error\n";
 
$Mail::Sender::NO_X_MAILER = 1;
 
$sender->Open({
        to => $to, 
        subject => "Test Email", 
        ctype => 'text/plain',
        encoding => "quoted-printable",
}) or print STDERR "Can't open the message: $sender->{'error_msg'}\n";
 
my $msg = "This is a test email with Mail::Sender\n\n";
 
$sender->SendEnc($msg);
 
close $DEBUG;

##</code><code>##

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 $@;