open(MAIL, "|mail $EMAIL");
print MAIL "To: $EMAIL\n";
print MAIL "From: $mail_from\n";
print MAIL "Subject: $mail_sub\n";
print MAIL "Content-Type: text/plain; charset=\"iso-8859-1\"\n";

open(MESSAGE, "<", "$HC") or die "$!";
print MAIL <MESSAGE>;
close(MESSAGE);
close(MAIL);