use strict;
use warnings;
use File::Find;

my $dir='/home/edi/wlsedi/howard/temp';

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

##</code><code>##

file1
file2
file3

##</code><code>##

use strict;
use warnings;
use File::Find;

my $dir='/home/edi/wlsedi/data_backup/univfiledrop';

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

##</code><code>##

.
file1
file2
file3

##</code><code>##

use strict;
use warnings;
use File::Find;
my $p = 0;
my $dir='/home/edi/wlsedi/howard/temp';

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

##</code><code>##

ls -e /home/edi/wlsedi/howard/temp
total 0
drwxr-xr-x-    2 wlsedi   wlsedi          256 Jul 01 09:33 dirhere
-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

##</code><code>##

w 0 .
p 1 .
w 2 file1
w 3 file2
w 4 file3
w 5 dirhere
p 6 dirhere