	$SENDER = "(empty address)" if ($SENDER eq "<>");
	print MAIL <<"EOF";
From: $mailfrom
To: $mailto
Subject: FOUND VIRUS IN MAIL from $SENDER

A virus was found in an email from:

$SENDER

The message was addressed to: 

EOF
	foreach (@RECIPS) {
		print MAIL "-> $_\n";
	}

	if ($QUARANTINEDIR) {
		print MAIL <<"EOF";

The message has been quarantined as:

$QUARANTINEDIR/$VIRUSFILE
EOF
	}
	print MAIL <<"EOF";

Here is the output of the scanner:

$output

Here are the headers:

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

EOF
