use IO::Tee;
$FH_STATUS = new IO::Tee(\*STDOUT, 
              new_logfile(name_logfile('logs/QTStatus')));