foreach my $email (@emails) {
  open MAIL, "|blah" or die "Can't fork : $!";
  print MAIL "To: $email\nFrom: $myemail\nSubject: test\n\n";
  while(@requests){
    my $r = shift @requests;
    last if $r eq "-----\n";
    print MAIL $r;
  }
  close MAIL or die "Broken pipe : $!";
  last unless @requests;
}
[download]

--perlplexer