my $l = new Apache::Session::Lock::File;
$l->clean('./.lockDir', 20);

##</code><code>##

my $scriptName = $query->self_url;
$scriptName =~ s/\?.*//;