%cookie = fetch CGI::Cookie if $ENV{HTTP_COOKIE};
$cookie1 = cookie( -name=>"host",   -value=>$host,              -expires=>"+7d" );
$cookie2 = cookie( -name=>"xronos", -value=>$xronos,            -expires=>"+7d" );
$cookie3 = cookie( -name=>"visits", -value=>cookie(visits) + 1, -expires=>"+7d" );

print header( -charset=>'iso-8859-7', -cookie=>[$cookie1, $cookie2, $cookie3] );
...............................
...............................
...............................
if ( $ENV{HTTP_COOKIE} ) {
   $st = $db->prepare( 'SELECT * FROM logs' );
   $st->execute();

   while ( $row = $st->fetchrow_hashref ) {
      if ( cookie(host) eq $row->{host} ) {
         $db->do( "UPDATE logs SET visits = visits + 1" ) or die $db->errstr;
      }
   }
}
elsif ( !$ENV{HTTP_COOKIE} ) {
   $db->do( "INSERT INTO logs VALUES ('$host', '$xronos', 'index', 1)" ) or die $db->errstr;
}