#!/usr/bin/perl 


use CGI::Carp "fatalsToBrowser"; 
use CGI qw(:all);
use DBI;


$verbinden1="DBI:mysql:event"; 
$verbinden2="root";
$verbinden3="root";

$dbh = DBI->connect( "$verbinden1","$verbinden2","$verbinden3") || die 
"Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr";

$sql = qq{create table Event (Name VARCHAR(20) not NULL,Veranstalter VARCHAR(30) not NULL,Ort VARCHAR(20) not NULL,Location VARCHAR(20) not NULL,Datum DATE not NULL,Beginn time not NULL,Titel VARCHAR(50) not NULL,Art VARCHAR(20),Mail VARCHAR(20) not NULL,Url VARCHAR(30),Beschreibung TEXT,)};
$sth = $dbh->do( $sql );
$dbh->disconnect();