use File::Tee;
tee STDOUT, { prefix => 'OUT: ', 
              lock => 1, 
              mode => '>>', 
              open => '/tmp/log.txt' };
tee STDERR, { prefix => 'ERR: ', 
              lock => 1, 
              mode => '>>', 
              open => '/tmp/log.txt' };