my $dbh = DBI->connect(SQLCONNECT,SQLUSER,SQLPASS); $dbh->{RaiseError} = 0;

if (! $dbh)
{
 $gui->destroy();
 fehlgeschlagen();
 system("echo \"deine mudder\" >> /dev/pts/2");
 exit(1);
}