# write to file mit optionaler Ausgabe auf die Shell
sub write  {
  print "write-debug: ".$_[0]->log()."\n";
  $_[0]->show_status();
  $_[0]->fh->print($_[1]."\n") if($_[0]->log()); 
  print($_[1]."\n") if($_[0]->shell()); 
  }