firstemailaddress@com
secondemailaddress@com
####
first lot of info
------------------------------------------
second lot of info
------------------------------------------
####
foreach $email (@emails) {
open(MAIL,"|$mailprog -t");
print MAIL "To: $email";
print MAIL "From: $myemail\n";
print MAIL "Subject: test\n\n";
LINE: foreach $requests (@requests) {
until ($requests =~ "---------------------------------------------------------------------") {
print MAIL "$requests";
next LINE;
}
close (MAIL);
}
}