Help for this page
x:\perl\site\lib\My\Tee.pm
package My::Tee; use Tie::Handle; ... } 1;
tie *STDxxx, 'My::Tee', '\path\to\logfile';