# 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);


##</code><code>##

$count = 0;
foreach (@cc) {
$count += 1;
# 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: $cc[$count]\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~ *** more irrelevant HTML *** ~
close (MAIL);
}

##</code><code>##

foreach (@cc) {
$count += 1;
# 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: $cc[$_]\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~ *** more irrelevant HTML *** ~
close (MAIL);
}