opendir (PRODIR, "D:/perldatabase/$folder[$II]") ||
            die ("Unable to open directory");