my $q = CGI->new;
my $session = CGI::Session->new("driver:File", $q, {Directory=>’/tmp’});
print $session->header();