Select Code to Download

use Cwd;
print "Current dir is: ", cwd, "\n";
...
print $_, "\n" if(-d "C:\\CA_LIC\\$_ ");
}
closedir(TEXTFILES);