perl -MO=Deparse -e 'while ($f = readdir $h) {1;}'
while (defined($f = readdir $h)) {
    '???';
}
-e syntax OK