Revert "Revert "Dear perl,""

This reverts commit 68ee6e172578c91c40919f555a0d5696df45401d.
After further consideration, perl can still DIAF.