lanx@lanx-1005HA:~$ perl -de0

#...

 DB<1> while (1) {\
  cont: print $x++;\
  cont: last if $x >3;\
  cont: }
0123
  DB<2>