open(MAIL, "|/usr/lib/sendmail -oi -t") || die "Can't open sendmail: $!";
print MAIL <<MESSAGE;
To: $email
Bcc: $bcc1, $bcc2
Subject: $subject

This is an automagically generated message, please do NOT reply to it.

MESSAGE

print MAIL "More text goes here";
close(MAIL);