open my $exim, "| exim -bS" or die;

for (...) {
  print $exim <<'MSG';
MAIL FROM: foo@bar.com
RCPT TO: doz@bar.com
DATA
Subject: Your Invoice
To: You
From: Me

You have to pay 1,000,000 dollars
.
MSG

}