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

BB::aSub();