open (STDOUT, "|tee /var/tmp/IQOQ.txt");
STDOUT->autoflush(1);
#$| = 1;