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