I was testing a statement made in Intermediate Perl; I don't really have a concrete use in mind. Right now, my main goal is to find out why it's doubling the output, so I can know how it works (and what I'm missing/doing wrong, assuming it's not an oddity in IO::Tee or something).