#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper; $Data::Dumper::Deparse = 1;

package p1;
our $x = 1;
my $func = sub { print $x,"\n" };

$func->();

package p2;

our $x = 100;
$func->();