## BB.pm
package BB;

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

1;