my $cgi = new CGI;
my $session = new CGI::Session(undef, $cgi, {Directory=>'c:\temp'});