OK, here is the code to delete the session(s) I am using:

#!/usr/bin/perl -w

use strict;
use CGI qw(-oldstyle_urls :standard);
use CGI::Session ( '-ip_match' );
use CGI::Carp qw(fatalsToBrowser);

use vars qw($q);

my $q = new CGI;

$| = 1;

my $sessionid = param( 'session' ) || '';

my $del_session;

if($sessionid) {
    # here should delete the passed session
    $del_session = CGI::Session->load( "driver:File", $sessionid,{ Dir
+ectory => '../sessions' } ) or die CGI::Session->errstr;   
 # Delete session (if open)
    $del_session->delete() if ($del_session);
    $del_session->flush() if ($del_session);   
    print $del_session->header();
    print "done";  
 }
else {
        # here should delete all sessions in directory
        $del_session = CGI::Session->load( "driver:File", undef,{ Dire
+ctory => '../sessions' } ) or die CGI::Session->errstr; 
        # Delete session (if open)
        $del_session->delete() if ($del_session);
        $del_session->flush() if ($del_session);
        print $del_session->header();
        print "done";
}
[download]

But it can delete any session! Thanks!