perl -MData::Dumper -MPadWalker=peek_my -e'my $x = 1; my @y = 1..3; my %z => (foo=>42); print Dumper(peek_my(0));'