Select Code to Download

#!/usr/bin/perl --
use strict;
...
        $a + $b;
    }
}

perl.exe -d pm.919064.1.pl
Default die handler restored.

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

#!/usr/bin/perl --
use strict;
use warnings;
...
        my $b = $_[0] + 1;
    }
}

perl.exe -d pm.919064.2.pl
Default die handler restored.
...
  h q, h R or h O to get additional info.
  DB<2> q

#!/usr/bin/perl --
use strict;
use warnings;
...
    }
    sub DADA  { $a }
}

perl.exe -d pm.919064.4.pl
Default die handler restored.

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