## A.pl
use BB;
$aValue = 10;

BB::aSub();

##</code><code>##

## BB.pm
package BB;

sub aSub {
    print $main::aValue, "\n";
}

1;