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