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

# JEDES STATEMENT MUSS MIT SEMIKOLON ABGESCHLOSSEN WERDEN 
# (mit nur wenigen Ausnahmen)
print header(); 

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

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

$dbh->do(<<SQL)  or die "Fehler beim Anlegen der Tabelle Kunden:$DBI::errstr";
    CREATE TABLE Kunden( 
            DHL   integer ,
            K_N integer,
            Hellmann integer)
SQL

$dbh->disconnect;

print h2('Datenbank erst gelöscht und dann erzeugt');