opendir DIR, $path or die "can't open $path: $!";
while (defined(my $f = readdir DIR)) {
  push @ok, [ "$path/$f", -M _ ]
    if (24 * -M "$path/$f") <= 2;
}
closedir DIR;