Да там вообще много ужасного. Стили пляшут, как в письме из Простоквашино. То open TESTFILE, ">./foo", то open TESTFILE, "<", ..., пробелы в блоках то есть, то нет, open/open(), перенос строки перед else местами. Пинками в perlstyle как минимум
это же тесты! Хорошей практикой всегда считается брать реальные куски данных для тестов. тут некое подобие fuzzing на уровне написания разными авторами в разных стилях из реального мира.
Страсти какие. some filesystems (most notably the ones in VMS) have versioned filesystems, and unlink removes only the most recent one. Война костылей с костылями :)