package MySub2;

use MySub1;

sub CCC {
  my $x = MySub1::BBB();
  return "CCC : $x";
}

sub DDD {
  return "DDD";
}

1;