open (MAIL,"|$sendmail") || die &mal;