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

my $email = Email::Simple->create(
  header => [ From => 'a real email', To => 'my real email', Subject => "zzz" ],
  body   => 'it work !', #no it's not
);
sendmail($email);