#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use DBI;

my %DB={
         base   =>'DB111111',
         host   =>'rdbms.strato.de',
         port   =>'3306',
         user   =>'U111111',
         passwd =>'passwort'
        };
my $dbh = DBI->connect("DBI:mysql:database=$DB{base};host=$DB{host};port=$DB{port}",$DB{user},$DB{passwd}) or die $DBI::errstr;

my $cgi = CGI::new();
print $cgi->header();

$dbh->disconnect;