perl: Fix typo