if ($@)
{
print "Datenbankfehler: ".DBI::errstr;
}