Select Code to Download

package My::Package::Version;

use strict;
...
    $pkg = caller(++$i);
  }
}

package My::Package::B;

use My::Package::Version;
...
print "My::Package::B loaded.\n";

1;

package My::Package::A;

use My::Package::B;
...
print "My::Package::A loaded.\n";

1;

#!/usr/bin/perl

use lib '.';
use My::Package::A;

print "\$My::Package::A::VERSION = $My::Package::A::VERSION\n";

Import Caller Trace:
  Called from package My::Package::B
    (Exporting VERSION to My::Package::B)
...
My::Package::B loaded.
My::Package::A loaded.
$My::Package::A::VERSION = 3.14