Select Code to Download

#!/bin/perl
use strict;
...
print "something";
print "to";
print "list";

perl -d zz.pl

...

main::(zz.pl:5):    say "we";
  DB<1>

  DB<1> l 1.2
1.2     use strict;
...
7.2:    say "need";
8.2:    say "something";
9.2:    say "to";

  DB<2> l 1.1.3.5
1.1.3.5     use strict;
  DB<3> l
...
7.1:    say "need";
8.1:    say "something";
9.1:    say "to";