#!/usr/bin/perl
use PadWalker qw(peek_my);
use strict;
use warnings;
use Data::Dumper;

sub peeker { my $l = shift;  print Dumper(peek_my(++$l)) };

my $outmost = "outmost";

{
 my $inner = "outer";
 print peeker(0);
}

print peeker(0);