use Cwd;
print "Current dir is: ", cwd, "\n";

local $_;
opendir(TEXTFILES, "c:\\CA_LIC") || die "Couldn't open the text file directory: $!";

@data=readdir(TEXTFILES);
foreach (@data) {
print $_, "\n" if(-d "C:\\CA_LIC\\$_ ");
}
closedir(TEXTFILES);