use AB qw( ); use CD qw( ); sub testing { AB::testing(); CD::testing(); }