my $dbh = DBI->connect($dsn, $user, $pass, {RaiseError => 0} );
unless ($dbh) {
  print LOG "Fehler beim connect: $DBI::errstr\n"; # oder was auch immer
  Tk::exit(1);
} # unless