#!/usr/bin/perl 

# Einbinden der Module 
#use strict;
use CGI qw/:standard :html3/;
use CGI::Carp qw/fatalsToBrowser/;
use DBI;


my $http=new CGI;
print $http->header();
print $http->start_html(-title=>'test-area');


my $db=DBI->connect('dbi:mysql:dbxxxxxxxx;dbxxx.puretec.de','dboxxxxxxx','xxxxxxxx');

my $sql_create = qq/ CREATE TABLE IF NOT EXISTS test (
                       vortrag_id  INTEGER,
                       titel       VARCHAR(127),
                       sprecher_id INTEGER,
                       minuten     INTEGER ) /; # SQL zum erstellen einer Tabelle

my $resultcode_create = $db->do($sql_create) or warn $db->errstr;


$db->disconnect();