Select Code to Download

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

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