title: simply tee in Perl without fork, File::Tee, or piping to tee
body: <p>Is there a <strong>simple way</strong> in Perl to send STDOUT or STDERR to multiple places without forking, using File::Tee, or opening a pipe to /usr/bin/tee?</p>
  
  <p>Surely there is a way to do this in <strong>pure perl</strong> without writing 20+ lines of code, right?  What am I missing?  Similar questions have been asked, both here on SO and elsewhere, but none of the answers satisfy the requirements that I not have to</p>
  
  <ul>
  <li>fork </li>
  <li>use File::Tee / IO::Tee / some other module+dependencies
  whose code footprint is 1000x larger than my actual script</li>
  <li>open a pipe to the actual tee command</li>
  </ul>
  
  <p>I can see the use of a Core module as a tradeoff here, but really is that needed?</p>