#!/usr/local/bin/perl
use warnings;
use strict;
print <<EOF;
Content-type: text/plain

EOF
eval {
    open my $sendmail, "| /usr/bin/sendmail -oi -oeq -t" or die $!;
    print $sendmail <<EOF;
to: ben.bullock\@lemoda.net
Testing 1 2 3

EOF
    close $sendmail or die "Error closing sendmail: $!";
};
if ($@) {
    print "Error: $@\n";
}
else {
    print "OK.\n";
}