Help for this page
sub mal { ... print "</body></html>\n"; exit; }
open (MAIL,"|$sendmail") || warn "&mal";
open (MAIL,"|$sendmail") || die &mal;
open (MAIL,"|$sendmail") || &mal;