open(MAIL,"| echo $message | blat $blat_cmd |");
while (<MAIL>) { print "$_"; }
close MAIL;