Select Code to Download

use strict;
use Data::Dumper;
...
my $walker = B::Concise::compile('-src','-exec',$_[0]);
$walker->();
}

{
    use strict 'refs';
...
40 <2> leaveloop K/2
41 <1> leavesub[1 ref] K/REFC,1