$s = CGI::Session->load() or die CGI::Session->errstr(); 
 
if ( $s->is_expired ) { 
    #display login form 
}

my $session =  CGI::Session->load; 
 
if ($session->is_empty || $session->is_expired || !$session->param('logged_in')) { 
   my $login_page = 'http://mycompany.com/cgi-bin/emailadmin/login.pl'; 
   print $cgi->redirect($login_page); 
}

use CGI; 
	use CGI::Session; 
    $session = new CGI::Session(); 
	$CGISESSID = $session->id(); 
 
    # Send HTTP header to browser: 
    print $session->header();

CGI::Session doesn't seem to be a valid CGI::Session driver. At least one method ('store') is missing at /usr/lib/perl5/site_perl/5.8.8/CGI/Session.pm line 150 
	CGI::Session::_validate_driver('CGI::Session=HASH(0x5ff97e0)') called at /usr/lib/perl5/site_perl/5.8.8/CGI/Session.pm line 55 
	CGI::Session::new('CGI::Session') called at cgi_test_2.pl line 34

use strict; 
use warnings;

#!/usr/bin/perl 
 
 
 
 
use strict;  
use warnings; 
 
use CGI::Carp qw(fatalsToBrowser); 
use CGI qw(:standard); 
use DBI;  
use HTML::Entities; 
use CGI::Session; 
my $ENV; 
 
my @value; 
my $dir="ha"; 
my $session_id; 
my @cookies; 
my @cookie; 
my %crumbs; 
my $crumbs; 
my $cookie; 
my $user; 
my $session; 
my $name; 
my $value; 
#this writes to the browser cookie and issues a session id 
 
#From the sign in page the cookie is sent to the browser the first time the student signs in. when the student navigates to the  
#student portal page the $ENV variable gets the cookie session id and writes it to the corresponding students database. 
	#my $cgi = new CGI; 
	use CGI; 
	use CGI::Session; 
    $session = new CGI::Session(); 
	my $CGISESSID = $session->id(); 
 
    # Send HTTP header to browser: 
    print $session->header(); 
 
 
 
 
#this part reads to see if a cookie is there. When it finds a cookie it reads 
#the CGISESSID, if the cookie has expired it cancels the session. May be the session id is stored in the database and looked at 
#to greet the visitor, then issues a new session id which it then writes to the database leaving the cookie to expire but  
#the new id is now stored in the browser and the database. This cant happen because if the session expires then the  
#new session id wont match the one in the databse. The session id has to be the same, or the session is read from the  
#database and writen to the browser every time the user visits, but it will expire then writen back to the cookie for it to 
#expire. 
 
if ($ENV{'HTTP_COOKIE'}) { 
my @cookies=split(/;/,$ENV{'HTTP_COOKIE'}); 
foreach $cookie(@cookies){($name , $value)=split(/=/, $cookie); 
$crumbs{$name}=$value; 
print "$name $value";#$id_to_store id to store: this id is stored right off the bat. It will stay in the users database and will be used to identify the user next time he  
						#enters. 
 
	} 
} 
if ($value eq "") { 
 
	$user="Welcome"; 
; 
#Go to body of http content and display this message. 
}

if ($ENV{'HTTP_COOKIE'}) {  
my @cookies=split(/;/,$ENV{'HTTP_COOKIE'});  
foreach $cookie(@cookies){($name , $value)=split(/=/, $cookie);  
$crumbs{$name}=$value;

my $session = CGI::Session->load or die CGI::Session->errstr();

Can't locate auto/CGI/Session/load.al in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi

my $cookie = $cgi->cookie(CGISESSID => $session->id, 
	-expires('2h');

my $session = CGI::Session->load or die CGI::Session->errstr();