Select Code to Download

#!/usr/bin/perl
use strict;
...
for my $i (1 .. 10) {
    $x += $i;
}

perl -d 2.pl

  DB<1> @lines=@{"_<2.pl"} ; for my $i (0 .. $#lines) { CORE::say $lin
+es[$i] == 0 }
1
...

1

  DB<1> @lines=@{"_<2.pl"} ; for my $i (0 .. $#lines) { CORE::say $lin
+es[$i] == 0 }
1
...

1