#!/usr/bin/perl

use strict;

use Email::Simple;
use Email::Simple::Creator;
use Email::Send;

my $email_raw = Email::Simple->create(
        header => [
                From    => 'x@x.org',
                To      => 'y@y.org',
                Subject => 'z'
        ],
        body => 'a',
);

# send it
my $sender = Email::Send->new({mailer => 'Sendmail'});
$sender->send($email_raw, '--extra-arg');