perl -MPadWalker=peek_my 
-e"my $x = 42; sub { my $closed_over = $x; sub { peek_my 0 } }->()->()"