use strict; use MySub1; use MySub2; print MySub1::AAA(), "\n"; print MySub1::BBB(), "\n"; print MySub2::CCC(), "\n"; print MySub2::DDD(), "\n";