$ perl -MO=Deparse -le " while( my $f = readdir $DIR ){ print $f; } "
BEGIN { $/ = "\n"; $\ = "\n"; }
while (defined(my $f = readdir $DIR)) {
    do {
        print $f
    };
}
-e syntax OK