    my $amavis_url = &amavisCredits();
    printf MAIL (<<"EOF",
From: $mailfrom
To: $SENDER
Subject: VIRUS IN YOUR MAIL

                           V I R U S  A L E R T

Our viruschecker found the

\t%s

virus%s in your email to the following recipient%s:

EOF
	# [still within printf syntax!]:
	join("\n\t", map(sanitize_str($_),@virusname)),
	(@virusname==1?"":"es"),
	(@RECIPS==1?"":"s") )  or die "warn_sender: printf failed: $!";

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

Delivery of the email was stopped!

Please check your system for viruses,
or ask your system administrator to do so.
$amavis_url

For your reference, here are the SMTP envelope originator
and headers from your email:

From %s
------------------------- BEGIN HEADERS -----------------------------
EOF
	# [still within printf syntax!]:
	sanitize_str($SENDER) ) or die "warn_sender: printf failed: $!";

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

EOF
