gistfile1.txt

    # Send an email
    use Email::Sender::Simple qw(sendmail);
    use Email::Simple;
    use Email::Simple::Creator;

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

    sendmail($email);