open (MAIL, "|$mailProg") || die "Can't create pipe to $mailProg: $!";

##</code><code>##

open my $mailer, "|-", $mail_prog or die "couldn't open pipe to $mail_prog: $!";