>perl -wMstrict -le
"package Some::Package;
   our $scalar = 'foo';
 package Some::Other::Package;
   print $Some::Package::scalar;
   print 'current package is ', eval { scalar caller };
"
foo
current package is Some::Other::Package