#!/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,)};
$sth = $dbh->do( $sql );
$dbh->disconnect();