> perl  -MO=Deparse -e 'while () { print "..\n" }'
while (1) {
    print "..\n";
}
-e syntax OK