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