@files = grep { 
     my $mod = (stat $_)[9];
     $startTime <= $mod && $mod <= $endTime
} <*.*>;