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

##</code><code>##

"mode" is not defined in %Fcntl::EXPORT_TAGS at C:\Products\Perl\lib/Fcntl.pm line 0
Can't call method "id" on an undefined value at C:\DOCUME~1\DWILSON\LOCALS~1\Temp\dirD1.tmp\Untitled line 4.