perl -MO=Deparse -e"for(;;){ print 'hello' }"
while (1) {
    print 'hello';
}