Perl 5.6 test