use strict;
use CGI qw(:standard);
use CGI::Session;

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