open(MAIL, "|/usr/sbin/sendmail -t $recipient") || die "Cant send mail. Reason: $!";