use CGI::Session;
use CGI;

#set up a session
$cgi = CGI->new;
$session = CGI::Session->new("driver:File", $cgi, {Directory=>"./tmp"});
$sid = $session->id();

$cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie=>$cookie );
$sid = $cgi->cookie("CGISESSID") || undef;
$session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});


##</code><code>##

Global symbol "$cgi" requires explicit package name at /....ls/result.cgi line 49.
Global symbol "$session" requires explicit package name at /....ls/result.cgi line 50.
Global symbol "$cgi" requires explicit package name at /....ls/result.cgi line 50.
Global symbol "$sid" requires explicit package name at /....ls/result.cgi line 51.
Global symbol "$session" requires explicit package name at /....ls/result.cgi line 51.
Global symbol "$cookie" requires explicit package name at 
/....ls/result.cgi line 53.
Global symbol "$cgi" requires explicit package name at /....ls/result.cgi line 53.