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