# Open The Mail
open (MAIL, "|$mailprog -t") || &safe_die("Can't open $mailprog!\n");
print MAIL "From: $rn\n";
print MAIL "Reply-To: $uname\n";
print MAIL "To: $uname\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL "Below is the information submitted on $date\n";
print MAIL "------------------------------\n\n";
print MAIL qq~ *** omitting the irrelevant body stuff *** ~
close (MAIL);