#!/usr/bin/perl -w
use strict;

use PadWalker qw(peek_my);


my ($oa,$ob) = ("Outer One", "Outer Two");

{
    my $inb = "Bare Block"; # Will not be seen by peek_my
    peeper();

}

sub peeper {
   my $c = peek_my(1);
   print  "Lexicals:\n", (map { "Found $_ with value $c->{$_}\n" } sort keys %$c ),"\n";

}