my ($analyze_in, $analyze_out);
my $kid_pid = open2($analyze_out, $analyze_in, $ANALYZE_PATH);
exit 0 unless $kid_pid;

while (my $line = <>) {
  print $analyze_in $line;
}
close $analyze_in;

my @result = <$analyze_out>;
die unless open my $sendmail_fh, '|' . $SENDMAIL_CMD;
print $sendmail_fh <<EOM;
From: $from_addr
To: $from_addr
Subject: Re: $subject

@result
EOM
close $sendmail_fh;