Select Code to Download

use strict;
use warnings;
...
   $a++;
   $y++;
}

DB<71> h a
a [line] command
...
        if necessary, do action, prompt user if necessary,
        execute line.
a        Does nothing

  DB<72> a 10 if($y>3 and $y <7) { print "\n<y: $y>\n" }

...
<y: 6>
678910  
  DB<74>

  DB<79> h w
w expr        Add a global watch-expression.
w             Does nothing

  DB<81> L
  DB<81> w if ($a>3 and $a <7){ $a }
...
    new value:    ''
  DB<82> c
78910  DB<82>

  DB<78> w if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" }
  DB<79> L
...
Watchpoint 0:    if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" } c
+hanged:
    old value:    '1'
    new value:    ''