open(  $stdout , ">&STDOUT" );
open(  $stderr , ">&STDERR" );
open( STDOUT , "| perl tee.pl -a $fErrorLogFile" );
select STDOUT; $| = 1;
...
code
...
print "Some text....\n";