while(defined($file = readdir($dh)))