use CGI::Session;
$session = new CGI::Session(undef, $cgi, {Directory=>"/tmp"});
$sid=$session->id();
print "$sid \n";