my $foo = fileno($tee); open STDERR, ">&$foo";