package MySub1;

use MySub2;

sub AAA {
  my $x = MySub2::DDD();
  return "AAA : $x";
}

sub BBB {
  return "BBB";
}

1;