>[оверквотинг удален]
> }
> close($F);
> print "Content-type: application/txt; charset=UTF-8\n";
> print "Content-Disposition: attachment; filename="error.log\n\n";
> print $Result;
> Иногда лог просто гигантский и его необходимо зазиповать перед выдачей.
> 1. Как сделать это красиво "в воздухе", без пересохранения файла при зиповании?
> 2. Как зазиповать несколько файлов, тем же способом, т.е. манипулируя только лишь
> переменными?
> Заранее спасибо!

1) Не использавать binmode для текстовых файлов.
2) Читать файл readline  вместо my $Result = <$F>;
3) почемубы вместо всего это идиотизма просто не отдавать файл целиком по ссылке, вывалив каталог логов в апаче с включенным индексированием, ибо он целиком отдается и прогонять его целиком через скрипт маразм.