2;0 juerd@ouranos:/root$ perl -MO=Deparse -e'while (1) { print }'
for (;;) {
    print $_;
}
-e syntax OK