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

##</code><code>##

20100327204831.321 file.pl(87): Received '...' from socket:0xdeadbeef

##</code><code>##

20100327204831.321 file.pl(87): $buf = '...';