Help for this page
open STDOUT, "|tee '$outfile'" or die ...
use IO::Tee; ... print "Test 1.\n"; system("echo Test 2."); # Don't really care that this isn't recorded