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