$ perl -MO=Deparse -e'while ($name = readdir(ORIG)) {}'
while (defined($name = readdir ORIG)) {
    ();
}
-e syntax OK