$mailprog = "/usr/sbin/exim -t -i -f";

open (MAIL, "|$mailprog");
print MAIL "From: Me <me\@myself.com>\n";
print MAIL "To: john\@doe.com\n";
print MAIL "Subject: Test";
print MAIL "This is a test\n";
close(MAIL);