$ perl -MO=Deparse,-p -le " opendir BLAH,'.'; while(readdir BLAH){print;}" BEGIN { $/ = "\n"; $\ = "\n"; } opendir(BLAH, '.'); while (defined(($_ = readdir(BLAH)))) { print($_); } -e syntax OK