How can I hook into Perl's print?

Question

Here\'s a scenario. You have a large amount of legacy scripts, all using a common library. Said scripts use the \'print\' statement for diagnostic output. No changes are

Answer 1

Lots of choices. Use select() to change the filehandle that print defaults to. Or tie STDOUT. Or reopen it. Or apply an IO layer to it.