open(MAIL, "|/usr/lib/sendmail -oi -t") || die "Can't open sendmail: $!";
   print MAIL qq|From: Me <me\@here.com>
To: You <you\@there.com>
Subject: Email

body text|;

close(MAIL);