if(open (MAIL,"|$sendmail"))
{
  close(MAIL);
}
else
{
   print STDERR "Konnte sendmail ($sendmail) nicht gepiped oeffnen: $!";
}