my $S = new CGI::Session(undef,undef,{Directory=>"$some_dir"});