Perl testing