perl adds a defined to the while so you get something like this:

    $ perl -MO=Deparse -e 'while($file = readdir(D)) { print $file; }'

    while (defined($file = readdir D)) {
        print $file;
    }
    -e syntax OK
[download]

This is explained in more detail at A most obscure bug.

--
John.