На этот вопрос уже есть ответ здесь:

У меня есть Perl-скрипт с несколькими операторами печати. Есть ли способ, с помощью которого я могу направить все эти операторы печати в файл, а также на стандартный вывод одновременно без дублирования операторов печати?