use v5.12.0;
use warnings;

{
    package Other;
    our $our1 = "our1";
    my  $my1  = "my1";
    sub foo {
        my  $my0  = "my0";
        our $our0 = "our0";
        say $my1;
        say $our1;
    }
}

package main;

use PadWalker qw/peek_sub peek_our/;
use Data::Dump qw/pp dd/;

my $block = \&Other::foo;
pp peek_sub( $block );