Select Code to Download

# (1) in sub SearchFile:

...

if ($VERBOSE) { PRINT("SEARCHING: ", FormatPath($PATH)); }            
+   # original
printf " %-8dSEARCHING: %s\n", $TOTAL, FormatPath($PATH) if $VERBOSE; 
+   # replacement

use Const::Fast;

...
const my $DOT      => 46;
const my $QUESTION => 63;
# etc.