{
   open(local *STDOUT , "| perl tee.pl -a $fErrorLogFile" );
   $| = 1;
   ...
}
print "Some text....\n";