Select Code to Download

use strict;
use warnings;
...
find({preprocess => sub { return grep { -M $_ < 1 } @_ },
        wanted => sub { printf "%s\n",$_ if (-f $_) }
    }, $dir);

file1
file2
file3

use strict;
use warnings;
...
find({preprocess => sub { return grep { -f $_ && -M $_ < 1 } @_ },
        wanted => sub { printf "%s\n",$_ }
    }, $dir);

.
file1
file2
file3

use strict;
use warnings;
...
find({preprocess => sub { printf "p %d %s\n",$p++,$_; return @_ },
        wanted => sub { printf "w %d %s\n",$p++,$_ }
    }, $dir);

ls -e /home/edi/wlsedi/howard/temp
total 0
...
-rw-r--r---    1 wlsedi   wlsedi            0 Jul 01 08:14 file1
-rw-r--r---    1 wlsedi   wlsedi            0 Jul 01 08:14 file2
-rw-r--r---    1 wlsedi   wlsedi            0 Jul 01 08:14 file3

w 0 .
p 1 .
...
w 4 file3
w 5 dirhere
p 6 dirhere