#!/usr/bin/perl -w

use DBI;

#$dbh = DBI->connect(dbi:mysql:database="DB111111";host="rdbms.strato.de";port="3306", "U111111", "passwort");

print "Content-type: text/html\n\n";

#!/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;