Select Code to Download

#!/usr/bin/perl
for my $c (1..1000) {
    $onto{'PROBLEM'}{'mappings'} = "foo" if $c == 99;
}

$ perl -d watchpoint-test.pl

...
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<3> q