open(MAIL, "| sendmail $recip") or die "Cannot mail $recip: $!";