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

my $email = Email::Simple->create(
  header => [ From => "", To => "", Subject => "" ],
  body   => $message,
);
sendmail($email);