my $session = new CGI::Session(undef, $sid, {Directory=>'d:/TBD'});