Can you explain more about what you are trying to do?

I don't know about IO:Tee, but "tee" is a very standard and commonly used program. Tee is available on all platforms including Windows.

The basic job of tee is to take STDIN and send a line to STDOUT and also to a file. Tee.pl is simple.

#!/usr/bin/perl -w
use strict;

# tee program

$| =1; #sometimes important, flushes I/O for each write.

sub usage () 
{
   print "TEE USAGE:\n tees stdout to a file and to stdout\n".
      " program | tee outfile\n";
   exit(0);
}

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

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

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