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

# 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');

# 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;