Would something like File::Tee or even the following work?

open (STDOUT, "| tee -ai log.txt");
[download]