eval {									$dbh->do("....", undef);
$dbh->do("....", undef);
$dbh->do("....", undef);
$dbh->do("....", undef);
};									

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