#!/usr/bin/perl 


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

$host = "localhost";
$user = "root";
$pass = "root";

$dbt = "DBI:mysql";

$dbh = DBI -> connect($dbt) or die ("verbindung fehlgeschlagen");

create database event;