The code shows that the output is a mail file. :) I don't know if it was there when you posted.

print OUTFILE2 "From: ", $from, "\n";
print OUTFILE2 "To: ", $to, "\n";
print OUTFILE2 "Subject: ", $subject, "\n";
print OUTFILE2 "Message body: ", "\n", $body, "\n";
[download]