open(MAIL,"| /usr/bin/sendmail -t") || die "$!";