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