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