package bar;
my ($callingPkg) = caller;

my $value = something here to reference the calling package's $value;