#!/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]

# here should delete all sessions in directory

No, that code will not delete all sessions. See CGI::Session Question, use CGI::Session->find( $dsn, sub{}, \%dsn_args )

Sorry "It can not delete any session!"

How do you know (how did you check)?

Sorry "It can not delete any session!"