$ cat pm_11137628_pkg_sep.pl
use strict;
use warnings;

our $x = 42;
print $], "\n";
print $main'x, "\n";
print $main::x, "\n";