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