my $sth = $dbh->prepare('SELECT ....') or fehlerabfangfunktion(DBI::errstr);