$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";

# f:/Perl/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print header()

my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-15 bin/")
or die "Konnte Datenbank nicht oeffnen!\n$!";

my $sth = $dbh->prepare (<<SQL) or die "Konnte 19Datenbank nicht erstellen!\n$!";

DROP TABLE Kunden
CREATE TABLE Kunden
( DHL   integer ,
K_N integer,
Hellmann integer)
SQL

$sth->execute();
$sth->finish();

$dbh->disconnect;