use warnings;
use strict;
use Email::Sender::Simple qw/sendmail/;
use Email::Simple;

my $email = Email::Simple->create(
    header => [
        To      => '"Xavier Q. Ample" <x.ample@example.com>',
        From    => '"Bob Fishman" <orz@example.mil>',
        Subject => "don't forget to *enjoy the sauce*",
    ],
    body => "This message is short, but at least it's cheap.\n",
);

print $email->as_string; # debug
sendmail($email);