http://qs321.pair.com?node_id=853513


in reply to Logging output of a script to screen AND file

I have used IO::Tee in the past. IIRC, it was pretty simple and did the job.

use IO::Tee; $tee = IO::Tee->new( $handle1, $handle2 ); print $tee "foo";