java .... | tee logfile.log

use strict;
use Win32::Process;
use Win32;

#close STDOUT;
#open STDOUT, ">>test.txt";

sub ErrorReport
  {
   print Win32::FormatMessage( Win32::GetLastError() );
  }
my $ProcessObj = "";
print STDOUT Win32::Process::Create($ProcessObj,
                       "D:\\WIN32APP\\JRE_142_03\\bin\\java.exe",
                        "java.exe -version | tee logfile.log",
                        1,
                        NORMAL_PRIORITY_CLASS,
                        ".")|| die ErrorReport();

            $ProcessObj->Suspend();
            $ProcessObj->Resume();
            $ProcessObj->Wait(INFINITE);
            

#close STDOUT;

use strict;
use warnings;
use diagnostics;
use Win32::Process;
use Win32;

my $file= "capture.txt";
my $command = Win32::Process::Create(my $ProcessObj,
                       "E:\\Win32app\\JAVA_VERSION\\JRE_142_03\\bin\\java.exe",
                       "java.exe -version",
                       3,
                       NORMAL_PRIORITY_CLASS, 
                       ".")|| die ErrorReport();
                       
                       $ProcessObj->Suspend();
                       $ProcessObj->Resume();
                       $ProcessObj->Wait(INFINITE);

open ( FILE, ">$file") or die "Can't open $file, stopped";
open ( PIPE, "$command |") or die "Can't open pipe, stopped";

while (<PIPE>) 
     {
      print;
      print FILE;
     }
close(FILE);
close(PIPE);

sub ErrorReport
   {
    print Win32::FormatMessage( Win32::GetLastError() );
   }

my $command = Win32::Process::Create(my $ProcessObj,

# [ ... ]

open ( PIPE, "$command |") or die "Can't open pipe, stopped";

#!/usr/bin/perl
$|++;
  use strict;
  use warnings;

  my $pid = fork;

  filter();

  unless($pid == 0) {
      print("$_\n") && sleep 1 for 1..10;
      exit(0);
  }

  sub filter {
      my $pid = open(STDOUT, '|-');
      return if $pid;
      die "Can't fork: $!"
          unless defined $pid;
      while(<STDIN>) {
          print ">> $_";
      }
      exit;
  }