I thought I'd take a quick break from work and see if I could write the File::Find version of this. The following code will create a list of the files modified in the past seven days in d:\log\exported. I didn't backdate the files in my directory to test this thoroughly, but it seems to work.

use File::Find;
my $ageLimit = 7;  # the age (in days) of the oldest file you want to 
+process
my $ageCutoff = time - $ageLimit * (60*60*24); # the cutoff time
my @logFiles = ();
my $findFilter = sub {
   if ( (stat($_))[9] > $ageCutoff ) {  # only push files newer than c
+utoff
      push @logFiles, $_;
   }
   return;
};
find($findFilter, 'd:\log\exported');  # populates the list
[download]