#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use DBI;
use CGI;

my $db = DBI->connect( 'dbi:mysql:usr_web41_1', 'web41', 'xxxxxx') ||
     die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";

my %cookies = fetch CGI::Cookie;
my @userinfo;


my $sth = $db->prepare("SELECT *, siteid FROM sites WHERE webmaster_email=? AND domain=? LIMIT 1")
        or die( "cant prepare SQL: $DBI::errstr");
 $sth->execute($cookies{'counti_email'}, $cookies{'url'} ) 
        or die "Can't execute statement: $DBI::errstr";  
 $userinfo = $sth->fetchrow_hashref; # Hashreferenz!f;