AA.pm
use strict
use warning

  sub Abug1 {}
  sub Asub2 {
      BB::Bsub1(1,2,3);
      BB::Bsub2(hostname);  # hostname is a "bareword"
}
  sub Asub3 {}