while(my $dirEntry = readdir(CURDIR)) {