Select Code to Download

# Open The Mail
open (MAIL, "|$mailprog -t") || &safe_die("Can't open $mailprog!\n");
...
print MAIL "------------------------------\n\n";
print MAIL qq~ *** omitting the irrelevant body stuff *** ~
close (MAIL);

$count = 0;
foreach (@cc) {
...
print MAIL qq~ *** more irrelevant HTML *** ~
close (MAIL);
}

foreach (@cc) {
$count += 1;
...
print MAIL qq~ *** more irrelevant HTML *** ~
close (MAIL);
}