    # sending mail, sendmail version
    # For sendmail, we call the "real" local delivery agent

    open(MAIL, "|-") || exec($LDA, @LDAARGS);
    while (<$fh>) {
	next if ($seen_xheader == 0 && m/^$X_HEADER_TAG:/o);
	if ($seen_xheader == 0 && m/\A\r?\n\Z/) {
	    print MAIL "$X_HEADER_TAG: $X_HEADER_LINE\n";
	    $seen_xheader = 1;
	}
	print MAIL $_;
    }

    close(MAIL);

    # Pass up the LDA's error code
    do_exit($? >> 8, __LINE__);
    # End sendmail
