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