sub WriteLogFile{
   # Name der Log-Datei
   my $filename = shift;
   # Inhalt für die Log-Datei
   my $message = shift ||  "no message for report!";
   # optionale zusätzliche Message-Zeile
   my $write_special = shift || "";
   my $output2shell = shift || 0;