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",
                         0,
                         NORMAL_PRIORITY_CLASS,
                         ".")|| die ErrorReport();

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

close STDOUT;