use Email::MIME;
use Email::MIME::CreateHTML;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP qw();

my $smtpServer          = $mailSMTPHost;
my $smtpPort            = $mailSMTPPort;
my $smtpUser            = $mailLogin;
my $smtpPassword        = $mailPwd;

my $transport = Email::Sender::Transport::SMTP->new({
  host => $smtpServer,
  port => $smtpPort,
  sasl_username => $smtpUser,
  sasl_password => $smtpPassword,
});

# for Email with HTML content
my $mailBody = $mailGreeting . $mailMsg . $mailSignature;
my $email = Email::MIME->create_html(
    header => [
      From    => $mailFrom,
      To      => $mailTo,
      Cc      => $mailCC,
      Bcc     => $mailBCC,
      Reply   => $mailReplyTo,
      Subject => $mailSubject
    ],
    body => $mailBody
);

eval { sendmail($email, { transport => $transport }); };
if ($@) {
# $@ is an object of Email::Sender::Failure
  print $@->message;
  print"n".$@->code;
# print "Oh no!". $@->what;
} else{ print "sendmail success"; };

Parsing of undecoded UTF-8 will give garbage when decoding entities at /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level/HTML/PullParser.pm line 81.
failed AUTH: Command unknown: 'AUTH'
500