#!/usr/bin/perl
use strict; use warnings; 


select STDOUT; $| = 1;

use CGI;

use CGI::Session;
my $existn=0; 

my $sid=make_first(); 
sleep 10; find_if_exist ($sid); 
sleep 20; find_if_exist ($sid); 
find_if_exist('abcd'); 
exit; 

sub make_first {
my $session = new CGI::Session(undef, undef, {Directory=>'.'});

my $sid=$session->id; 

$session->expires('+15s');
$session->param('user_id',time);
$session->flush();
return $sid; 
} 


sub find_if_exist {
my $sid0=shift; 
$existn++; 
print '******Exist call:'.$existn."\n"; 
my $session = new CGI::Session(undef, $sid0, {Directory=>'.'});

my $sid=$session->id; 
my $user=$session->param('user_id'); 
unless (defined $user) {$user='undef-as-string'; } 
unless ($sid0 eq $sid) {print "********different   "; } 
print 'sid0:'.$sid0.' sid:'.$sid."\n"; 
print 'user:'.$user."\n\n";
}