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;

if(check_login() && not validate_login() ) {
  logout_user();
} 
else {
  my $sth = $db->prepare("SELECT * FROM sites WHERE webmaster_email=? AND webmaster_url=? LIMIT 1") 
        or die( "cant prepare SQL: $DBI::errstr");
  $sth->execute($cookies{'email'}, $cookies{'url'} ) 
        or die "Can't execute statement: $DBI::errstr";  
  $userinfo = $sth->fetchrow_hashref; # Hashreferenz!
}

#...
# später:

print 'URL: ', CGI::textfield( 'url', $userinfo->{'domain'} ), 
CGI::br(), 
'E-Mail: ', CGI::textfield( 'email', $userinfo->{'webmaster_email'} );