my $session_id = cookie('CGISESSID'); my $session = new CGI::Session("driver:File", $session_id, {Directory=>'/tmp'}); if ( !$session->param('logged-in') ) { print "Your session expired."; exit(0); } else { my $user_id = $session->param('user_id'); my $user_name = $session->param('user_name'); }