add a new define for testing perl #115078