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

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

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

$dbh->disconnect;