--------------------------------------------
login.cgi (modified)
--------------------------------------------

#!/usr/bin/perl -w

...
...

# new query object
my $cgi = CGI->new;

# Load and Delete existing session
delete_existing_session($cgi);

# Get a new session
my $session = get_session($cgi);

...
...


--------------------------------------------
delete_existing_session() 
--------------------------------------------

sub delete_existing_session {

 my $cgi = shift;

 my ($session, $exist_sess_id);

 # Query the cookie and retrieve existing session id, if exists
 $exist_sess_id = $cgi->cookie( "CGISESSID" ) or undef;

 # Load existing session 	
 $session = CGI::Session->load( $exist_sess_id );

 # Delete the session	
 $session->delete();
	
}