$session = new CGI::Session("driver:File", $session_id, {Directory=>"$session_dir"});

if ($session_id eq '' or $session_id eq '$SESSIONID') {
    $session_id = $session->id();    
    
}