use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP ();
use Email::Simple::Markdown;
use Email::Simple::Creator ();
 
my $smtpserver = 'Myserver';
my $smtpport = 25;
my $smtpuser   = 'mail@mail.com';
my $smtppassword = '0123456789';


my $transport = Email::Sender::Transport::SMTP->new({
  host => $smtpserver,
  port => $smtpport,
  sasl_username => $smtpuser,
  sasl_password => $smtppassword,
});

my $email = Email::Simple::Markdown->create(
    header => [
    To      => 'mail@gmail.com',
    From    => 'mail@mail.com',
    Subject => 'Subject',
    ],
    body => "My body",
);

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