#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html;charset=UTF-8\n\n";
print "Start test script.
\n";
use CGI;
use CGI::Session;
$cgi = new CGI;
$sid = $cgi->param('CGISESSID') || undef;
print "Incoming sid:$sid
";
$SessionFilePath = 'c:\windows\temp';
$session = new CGI::Session("driver:File", $sid, {Directory=>$SessionFilePath}) or die CGI::Session->errstr();
$sid = $session->id();
$pwd = "test";
$session->param("pwd", $pwd);
$session->save_param($cgi);
$session->flush();
print "
sid is now $sid.\n";
exit;