open (MAIL,"|sendmail -t") || die "Unable to open sendmail";
print MAIL "To: $recipient\n";
print MAIL "From: $friendly_email\n";
print MAIL "Reply-to: $reply_email\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$body";
close (MAIL) || die "Unable to send e-mail";