#!/usr/bin/perl
use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

$cgi = new CGI;
$sid = $cgi->param('CGISESSID') || undef;

$destdir = 'd:\web\libsearch';

$session = new CGI::Session("driver:File", $sid, {Directory=>$destdir}) or die CGI::Session->errstr();
$sid = $session->id();
print "<br>sid=$sid, $destdir\n";

#store the variable
$testvalue = "abc";
$session->param("testvar", $testvalue);
$session->save_param($cgi);

#retrieve the variable
$retrieved = $session->param("testvalue"); 
print "<br>retrieved:$retrieved \n";

exit;