	my $amavis_url = &amavisCredits();
	print 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$viruslist

virus(es) in your email to the following recipient(s):

EOF
	foreach (@RECIPS) {
		print MAIL "-> $_\n";
	}
	print 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 headers from your email:

------------------------- BEGIN HEADERS -----------------------------
EOF
	$entity->print_header(\*MAIL);
	print MAIL <<"EOF";
-------------------------- END HEADERS ------------------------------

EOF
