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