Perl: Перенаправление STDOUT двух файлов

Как я могу перенаправить STDOUT поток для двух файлов (дубликатов) в пределах моего Perl скрипт в настоящее время я просто вливается в один файл журнала:?.

open(STDOUT, ">$out_file") or die "Can't open $out_file: $!\n";

Что я должен изменить Thx