#!/usr/bin/perl -w

use strict;
use CGI::Session ( '-ip_match' );
...
# sessionid value sample:
my $sessionid = "cgisess_dd931b714cb6768854c4efee7bc09c4b";
 
# log out session
my $del_session;
if($sessionid) {
    $del_session = CGI::Session->load( "driver:File", $sessionid,{ Directory => '../sessions' } ) or die CGI::Session->errstr;    
# Delete session (if open)
 
    $del_session->delete() if ($del_session);
    $del_session->flush() if ($del_session);     
 }
...