Select Code to Download

use B;
$aValue = 10;
my $B = new B;
my $something = $B->aSub;

package B;

...
    #here I want to access A.pl's $aValue whitout having it passed as 
+parameter into the $B->aSub call...
}
1;