my $session = new CGI::Session(undef, undef, {Directory=>'/tmp/session'}) or die