$dbh->do(qq{DROP TABLE Kunden})
  or die "Fehler beim Löschen der Tabelle Kunden: $DBI::errstr ";
$dbh->do(qq{CREATE TABLE Kunden ( ...)})
  or die "Fehler beim Anlegen der Tabelle Kunden:$DBI::errstr";