Select Code to Download

use Email::Simple;
use Email::Sender::Simple qw(sendmail);

...
  body   => $message,
);
sendmail($email);

use MIME::Lite;
use MIME::Lite::HTML;
use HTML::FormatText::WithLinks;
...
  die "@errors" if @errors = $ml->errstr;
  $m->send;
}