Select Code to Download

$ perl -MDevel::Peek -MScalar::Util=weaken -le " sub fudge { my $f = s
+ub { print 1; }; Dump($f); weaken $f; Dump($f); $f; } $f = fudge(); $
+f->(); Dump($f);"
SV = IV(0x3f8d18) at 0x3f8d1c
  REFCNT = 1
...
    PADNAME = 0x99aae4(0x9a7d1c) PAD = 0x3f8d0c(0x9a7b44)
    OUTSIDE = 0x99aa74 (fudge)

my $foo = { kid  => { } };
$foo->{kid}{parent} = $foo;
weaken $foo->{kid}{parent};