DP - Perl - tests