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


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

my $sth = $dbh->prepare (' CREATE TABLE Kunden 
( DHL   integer , 
K_N integer, 
Hellmann integer)') 


or die "Konnte Datenbank nicht erstellen!\n$!"; 

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

$dbh->disconnect;