perl -de0
main::(-e:1):   0
  DB<1> x $N = 0; ++$N, $N++
0  2
1  1