fix perl_test