fix test syntax for old perl