$session = new CGI::Session("driver:File", $cgi, {Directory=>"/temp"}); $cookie = $cgi->cookie(-name=>'CGISESSID',-value=>$session->id); $sid = $session->id(); print $cgi->header(-cookie=>$cookie ); # storing data in the session $session->param('sessionid', $session->id); $session->save_param(); # expire the session itself after 1 idle hour $session->expire('+1h'); ##

##

use DBI;
use CGI;
use CGI::Session;

$session = CGI::Session->retrieve();
if ($session eq "")
{
print "Content-type: text/html\n\n";
print "";
print "You must login first!";
exit;
print "";
print "";
}