$lines[0] = "To: $email\n";
$lines[1] = "From: $from\n";
$lines[2] = "Bcc: support\@mysite.com\n";
$lines[3] = "MIME-Version: 1.0\n";
$lines[4] = "Content-Type: text/html; charset=us-ascii\n";
$lines[5] = "Subject: $subject\n\n";
$lines[6] = "$theMessage";

open(MAIL,"|/usr/sbin/sendmail -t") or fatal("...");
print MAIL @lines;
close(MAIL) or fatal("...");