Select Code to Download

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