my $dbh = DBI->connect($dbc,$user,$password) or print "ERROR";
if (undef $dbh) {
   print "Konnte nicht DB verbinden: $DBI::errstr\n";
   return;
}
my $sth = $dbh->prepare("TRUNCATE TABLE `kunden`");
$sth->execute();