CORE PERL TESTING