open(MAIL,"| echo $message | blat $blat_cmd");
close MAIL;