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>