Есть ли в Perl что-то для ограничения размера входящих данных?
Т. е. нужно ограничить, чтобы поступающие данные (пофиг откуда - из STDIN, из файла, ответ из СУБД, POST в случае веб-программы, ответ от какого-то сервера по сокету или откуда-то ещё) не были по несколько мегабайт, что может заставить программу выполнять ненужные действия (например, считывание первой строки длиною в мегабайты из файла, хотя по идее в файле должно быть всего двадцать символов, а регекспы проверяют данные только после полного считывания).
