perl -Dt -e '$x = do {for (1) {}}'

EXECUTING...

(-e:0)  enter
(-e:0)  nextstate
(-e:1)  pushmark
(-e:1)  const(IV(1))
(-e:1)  gv(main::_)
(-e:1)  enteriter
(-e:1)  iter
(-e:1)  and
(-e:1)  stub
(-e:1)  unstack
(-e:1)  iter
(-e:1)  and
(-e:1)  leaveloop
(-e:1)  gvsv(main::x)
(-e:1)  sassign
(-e:1)  leave