#!/usr/bin/perl58 -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session qw/-ip-match/;
	
my %p = ();
foreach (split /&/, $ENV{'QUERY_STRING'}) { $p{$1} = $2 if /^([^=]+)=(.+)$/; }
	
if ( not $p{'CGISESSID'} )
{
	my $SESSION = new CGI::Session("driver:File", undef, {Directory=>"/tmp"});
	$SESSION->expire(10000);
	my $sid = $SESSION->id();
	$SESSION->param( 'text_key', 'test_wert' );

	print "content-type: text/html\n\n";
	print '<a href="sessiontest.pl?CGISESSID='.$sid.'&time='.time.'">sessiontest.pl?CGISESSID='.$sid.'&time='.time.'</a>';
}
else
{
	my $SESSION = new CGI::Session("driver:File", $p{'CGISESSID'}, {Directory=>'/tmp'});
	
	print "content-type: text/html\n\n";
	print 'CGISESSID from query: '.$p{'CGISESSID'}.'<br />';
	print 'Session var "test_key": '.$SESSION->param('text_key').'<br />';
	print 'Time elapsed since session was created: '.(time-$p{'time'}).' seconds';
}