Select Code to Download

use strict;
use warnings;
...
   print "file='$file'\n";
   # could add code to modify the found files here ...
}

Found 5 text files under dir 'C:/pm/file-find'...
file='C:/pm/file-find/example.txt'
...
file='C:/pm/file-find/fred/f2/hello.txt'
file='C:/pm/file-find/fred/f2/f2a/2a.txt'
file='C:/pm/file-find/fred/f2/f2a/hello.txt'