Print to standard file and file at the same time

Question

I have a Perl script with several print statements. Is there a way by which I can direct all these print statements to a file, as well as to stdout at the same time without duplicating print statements?

Answer 1

You can use File :: Tee .

use File::Tee qw(tee); tee STDOUT, '>>', 'some_file.out'; print "w00p w00p"; 

If File::Tee not available, it is easy to model using the pipeline:

 open my $tee, "|-", "tee some_file.out"; print $tee "w00p w00p"; close $tee;