Update test Perl script.