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

#...

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

##</code><code>##

lanx@lanx-1005HA:~$ ipl

# ...

  DB<100> while (1) {
           print $x++
           last if $x> 3;
           }
           
           
           ;;
syntax error at (eval 22)[multi_perl5db.pl:644] line 2, near "++last "
  DB<101> while (1) {
             print $x++;
             last if $x> 3;
           }
0123
  DB<102>