use strict;
use File::Find;
use CGI::Session;

use constant SESSION_DIR    => '/tmp/';

find( \&wanted, SESSION_DIR );

sub wanted {
	return unless /^cgisess_(.*)/;
	my $s = CGI::Session->new( undef, $1, { Directory => SESSION_DIR } );
	$s->delete && print "$1\n" if $s->is_new;
}