Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $y++;
    $x -= $y;
}

  DB<3> a 6 print ("\$y $y\n")
  DB<4> n
  DB<4> 
...
    DB::DB called at test.pl line 5
$y 
  DB<4>