Select Code to Download

use strict;
use Benchmark;
...

# I printed scalar(@found) in one test, and these results
# were obtained where there were over 6K directories under "."

# don't use File::Find;

#!/usr/bin/perl

...
close OUT;

`touch $path_log`;