use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use DBI;

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 $sth = $db->prepare("SELECT * siteid FROM sites WHERE webmaster_email='" . $cookies{'email'} . "' AND domain='" . $cookies{'domain'} . "' LIMIT 1");
   $sth->execute() or die "Can't execute statement: $DBI::errstr";
  
  my @userinfo;
  while (my $ref = $sth->fetchrow_arrayref()) {
    push(@userinfo , [@$ref]);
  }