while(my $dirEntry = <CURDIR>)