open (MAIL, "|$sendmail $recipient")
#                       ^^^^^^^^^^