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);