unless (!$dbh)
 {
  system("echo \"Fehlgeschlagen!\" >> /dev/pts/2");
  Tk::exit(1);
 } # unless