Select Code to Download

#!/usr/bin/env perl

use strict;
...
    }
    return $sum;
}

$ ./pi2.pl
Died at ./pi2.pl line 36.
$

#source 2.scope.txt 
f Genius.pm
b 282
...
p $sub
p $sub !~ m/^step([\d]+)/
#save 3.scope.txt

$ perl -d pi2.pl

Loading DB routines from perl5db.pl version 1.55
...
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
  DB<10>

$ ./pi3.pl
pi = 3.769908
$

#!/usr/bin/perl -w
use v5.030;
use Path::Tiny;
...
  return $return;
}
__END__

  use warnings;
  use 5.011;