    $SENDER = "(empty address)" if ($SENDER eq "<>");
    printf MAIL (<<"EOF",
From: $mailfrom
To: $mailto
Subject: VIRUS FROM %s (%s)

A virus was found in an email from:

   %s

The message was addressed to: 

EOF
	# [still within printf syntax!]:
	sanitize_str($SENDER),
	join(", ", map(sanitize_str($_),@virusname)),
	sanitize_str($SENDER) )  or die "warn_admin: printf failed: $!";

    foreach (@RECIPS) {
	printf MAIL ("-> %s\n", sanitize_str($_))
	    or die "warn_admin: print failed: $!";
    }

    if ($QUARANTINEDIR) {
	print MAIL <<"EOF" or die "warn_admin: print failed: $!";

The message has been quarantined as:

   $QUARANTINEDIR/$VIRUSFILE
EOF
    }
    print MAIL <<"EOF" or die "warn_admin: print failed: $!";

Here is the output of the scanner:

$output

Here are the headers:

------------------------- BEGIN HEADERS -----------------------------
EOF
    $entity->print_header(\*MAIL) or die "warn_admin: print_header failed: $!";
    print MAIL <<"EOF" or die "warn_admin: print failed: $!";
-------------------------- END HEADERS ------------------------------
EOF
