Help for this page

Select Code to Download

Select or download this

>perl -MO=Deparse -e"while (<FILE> && foo()) {}"
while (<FILE> and foo()) {
    ();
}
-e syntax OK