Select Code to Download

$ perl -MO=Concise,-exec -e'while (foo()) { bar() }'
3  <{> enterloop(next->8 last->d redo->4) v
...

$ perl -MO=Concise,-exec -e'bar() for foo()'
9  <{> enteriter(next->d last->g redo->a) lK

LOOP_START:
   ( bar() ), goto LOOP_START if foo();

LOOP_START:
   do { bar() };
   goto LOOP_START unless foo();