DB<23> sub foo { my $bar =42 }

  DB<24> use PadWalker qw/peek_sub/;

  DB<25> x peek_sub(\&foo)
0  HASH(0x31ffa38)
   '$bar' => SCALAR(0x31ff828)
      -> undef
  DB<26>