next unless -d $file;