open MAIL, ("|mail $mail" || die "mail problem: $!");