use strict; use Env; use File::Basename; use DBI; use lib dirname(__FILE__) . ''; use CGI; use CGI::Carp "fatalsToBrowser"; use CGI::Session; my $cgi = new CGI; my $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp/session'}) or die CGI::Session->errstr;