cpanp -i IO::Tee File::Tee

A Guide To Installing Modules

My question was different..should I to have packages installed to get the output using tee? I have followed all the required steps to install packages using ppm but of no use. As soon as open the ppm or try commandline option to install any package getting the results as "ppm install DateTime" Downloading ActiveState Package Repository packlist...not found ppm install failed: Can't find any package that provides DateTime I have tried setting the http proxy as provided in the guide but no luck.

One other possibility is consolidate all for your print statements into calls to one central printing function that prints to both the screen and the file. This has the advantage that all of your I/O is passes through a single function. If, sometime in the future, you want to change how you do your output (use one of the Log:: modules or some similar change) then your changes are limited to one routine.

Such a change is simple to implement at the start of development, but it is a large, time-consuming, and error-prone task when applied to existing code. (I've had to do both.)

open my $out_file, '>>', 'myoutputfilename.txt' or die "$!";
my $output = 'blablabla';
print $output;           # print to screen
print $out_file $output; # print to file
[download]

should I to use 2 seperate print statement each time I need to print? There will be many such statements. Can't I use single print statement which prints to the screen and to the file simultaneously as I have the option in UNIX with | tee option?

You can install a gnu version of tee.exe on your Windows machine or just use your own tee. You like tee, so just use tee.

Update: I tried using tee command here too but didnt work - the below works on my Windows machine.
tee.pl

#!usr/bin/perl -w
use strict;
$|=1;  #turn autoflush on

sub usage () 
{
   print "TEE USAGE:\n".
         " program | tee outfile\n".
         " sends stdout from program to outfile\n";
         exit;
}

my $filename = shift @ARGV;
usage unless $filename;

open (OUTFILE, ">", "$filename")
          or (die "Can't open OUTFILE: $!");

while (<>)
{
  print;
  print OUTFILE;
}
[download]

Update: In your program, unbuffer stdout. There is no need for the eval. There can be issues about how to run a perl program on Windows without having to say "perl" explictly - but that's a different subject (and this is possible to do).

#!/usr/bin/perl -w
use strict;
$|=1;  #unbuffer stdout

print "File split start time is ", scalar localtime();
[download]

prints:
C:\TEMP>perl test.pl | perl tee.pl xxxxx
File split start time is Fri Mar 30 05:57:41 2012
C:\TEMP>type xxxxx
File split start time is Fri Mar 30 05:57:41 2012
C:\TEMP>
[download]