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

use Email::Sender::Simple qw(try_to_sendmail);
use Email::Simple::Markdown;

my $username = 'xxx@gmail.com';
my $password = 'xxx';

my $to = 'xxx@gmail.com';
my $from = 'yyy@gmail.com';
my $subject = 'Test';

my $transport = Email::Sender::Transport::SMTP::TLS->new(
        host     => 'smtp.gmail.com',
        port     => 587,
        username => $username,
        password => $password
);

    my $email = Email::Simple::Markdown->create(
        header => [
                To      => $to,
                From    => $from,
                Subject => $subject,
        ],
        body => '[this](http://metacpan.org/search?q=Email::Simple::Markdown) is *amazing*',
    );

    #print $email->as_string;

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