#! perl -slw use strict; use IO::Tee; open LOG, '>', 'my.log' or die $!; my $tee = IO::Tee->new( \*STDOUT, \*LOG ); select $tee; for ( 1 .. 10 ) { print "STDOUT via print"; printf "STDOUT via printf\n"; } close LOG; __END__ C:\test>1151911 STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf C:\test>type my.log STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf STDOUT via print STDOUT via printf