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


print header()

my $dbh;
my $sth;

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

my $sth = $dbh->prepare (<<SQL) or die "Konnte Datenbank nicht erstellen!\n$!"; 
CREATE TABLE Kunden
( DHL   integer , 
K_N integer, 
Hellmann integer)
SQL

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

$dbh->disconnect;