Select Code to Download

use B 'main_cv';
use B::Deparse;
...
  $text = ' ' x $_;
  $text =~ $qr;
}

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;