DB<170> sub outer { package BLA; my $my=42; our $our=666; sub { print "$my,$our" } } DB<171> outer()->() 42,666 DB<172> use PadWalker qw(peek_sub closed_over) DB<173> x peek_sub(outer()) 0 HASH(0x39d8ec8) '$my' => SCALAR(0x39d8dd8) -> 42 DB<174> x closed_over(outer()) 0 HASH(0x39d98b8) '$my' => SCALAR(0x39d92e8) -> 42 1 HASH(0x39d9168) # <- What is that,BTW? 1 => SCALAR(0x39d92e8) -> REUSED_ADDRESS DB<175>