open SENDMAIL, "| $path_to_sendmail -t -oi" 
  or die "...";
print MAIL <<END_OF_MESSAGE;
To: $adminmail
From: $from
Subject: $subject

$message
END_OF_MESSAGE