Help for this page
package MySub1; ... } 1;
package MySub2; ... } 1;
use strict; ... print MySub1::BBB(), "\n"; print MySub2::CCC(), "\n"; print MySub2::DDD(), "\n";