--------------------------------------------
login.cgi - final
--------------------------------------------

#!/usr/bin/perl -w

...
...

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

# get existing id from cookie 
my $existing_id = $cgi->cookie('CGISESSID') or undef;

# If existing_id is valid, then call sub to delete the session
if ( defined $existing_id) {

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

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

...
...


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

sub delete_existing_session {

 my $exist_sess_id = shift;

 # Load existing session     
 my $session = CGI::Session->new( undef, 
                                $exist_sess_id, 
				{ Directory => '/usr/sessions' })         
		or die "can't create session: $!";

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