use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;

my $email = Email::Simple->create(
  header => [
    To      => 'sking@adomain.com.com',
    From    => 'admin@mydomain.com',
    Subject => "sample message",
  ],
  body => "Greetings,\nTyped message (content)\nGoodbye.\n",
);

my $transport = Email::Sender::Transport::SMTP->new({
  host => 'mail.mydomain.com',
  sasl_username => 'admin@mpros.com',
  sasl_password => '**',
});

sendmail($email, { transport => $transport });
exit;