Select Code to Download

%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" );

if ( $ENV{HTTP_COOKIE} ) {
   $st = $db->prepare( 'SELECT * FROM logs' );
...
elsif ( !$ENV{HTTP_COOKIE} ) {
   $db->do( "INSERT INTO logs VALUES (NULL, '$host', '$xronos', '$file
+', 1)" ) or die $db->errstr;
}