my $file;
while($file = readdir(DIR)) {
...