#!/usr/bin/perl
print "Content-type:text/html\n\n";

$mailprog = '/usr/sbin/sendmail';
open(MAIL,"|$mailprog -t") or die "cannot open sendmail";
print MAIL "To: my\@email.address\n";
print MAIL "From: senders\@email.address\n";
print MAIL "Subject: this is the subject line\n\n";
print MAIL "these are the contents of the e-mail\n";
close(MAIL);

print "Success!";

exit 1;