C:\> perl -MO=Deparse -e "while (1) { print 1; }"

for (;;) {
    print 1;
}

-e syntax OK

C:\> perl -MO=Deparse -e "for (;;) { print 1; }"

for (;;) {
    print 1;
}

-e syntax OK