Select Code to Download

use Devel::Peek;

...
}

foo();

SV = NULL(0x0) at 0x182a4d4
  REFCNT = 1
...
  REFCNT = 2
  FLAGS = (PADMY,ROK)
  RV = 0x2381a4

sub foo {
    my $shared_with_all_recur = ...;
...

    undef $_recur;
}