open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL <<"END_OF_MAIL";
To: $sup_dept
Reply-to: $sup_email
From: $sup_email
Subject: $sup_subject

$sup_fullname Wrote:

$sup_details

***End Of E-Mail***

END_OF_MAIL
close (MAIL);