Select Code to Download

$ perl -MDevel::Peek -e'Dump sub { my $x = "abc"; Dump $x; $x }->()'
SV = PV(0x8bfe730) at 0x8c1b2b0
...
  PV = 0x8c1e2e0 "abc"\0           <-- A copy
  CUR = 3
  LEN = 12