my $dbh = DBI->connect($dbc,$user,$password);
unless (defined $dbh) {
   print "Konnte nicht DB verbinden: " . $DBI->errstr() . "\n";
   return;
}
my $sth = $dbh->prepare("TRUNCATE TABLE `kunden`") or die('fehlermeldung wg.prepare: ' . DBI->errstr());
$sth->execute();