my $path = File::Spec->catdir($dir, $file);
next unless -f $path;