unless (open(LOG_FILE, ">test_sendmail_log.txt")) {
    die "Couldn't open output file test_sendmail_log.txt\n";
}
print LOG_FILE "$body";

open (MERCHANT_MAIL, "|/usr/sbin/sendmail -oi -t")
	or die "Can't fork for sendmail: $!\n";
print MERCHANT_MAIL "To: $send_addr\n";
print MERCHANT_MAIL "From: $from_addr\n";
print MERCHANT_MAIL "Subject: $subject\n\n";
print MERCHANT_MAIL $body;
close (MERCHANT_MAIL);

close(LOG_FILE);