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

open (STDOUT, "| tee >t2.txt");
my $ProcessObj = "";
Win32::Process::Create($ProcessObj,
                       "D:\\WIN32APP\\JRE_142_03\\bin\\java.exe",
                       "java.exe -version" >>*STDOUT, 
                       1,
                       NORMAL_PRIORITY_CLASS, 
                       ".")|| die ErrorReport();
                       
                       $ProcessObj->Suspend();
		       $ProcessObj->Resume();
                       $ProcessObj->Wait(INFINITE);
       }
close(STDOUT);