Perl tests