Asumming the various directories are on your @INC variable (see use lib or perl -I in perlman:perlrun for more details).

$A::i_am_prob=27;

package B; # now in package B

print $A::i_am_prob; # prints 27

package C; # now in package C

print $A::i_am_prob; # prints 27
[download]