use strict; use Win32; use Win32::Process; my $ProcessObj = (); #--------------------------------------------------------- # Loading JAR Files #--------------------------------------------------------- foreach my $wks_name2 (@wks_name) {       my $appparameters = $appexecutable . ' -cp ' .               $pix_path . ';'.                           $pix_path . '\\CLASSES;'.                           $pix_path . '\\ETC;'.                           $pix_path . '\\CONFIG;'.                           $pix_path . '\\HELP;'.                           $pix_path . '\\LIB\\appfw.jar' .';'.                           $pix_path . '\\LIB\\pixx.jar' .';'.                           $pix_path . '\\LIB\\pixxclient.jar' . ';'.                           $pix_path . '\\LIB\\pixxcsresources.jar' . ';'.                           $pix_path . '\\servertester\\loggingpatch;'.                           $pix_path . '\\servertester\\servertester.jar' . ';'.                           $pix_path . '\\LIB\\orbix2000.jar' .               " com.lsy.pixx.server.test.Tester $wks_name2 servertester//tester.cfg";                                Win32::Process::Create($ProcessObj,                          $appexecutable,                          $appparameters,                          1,                          NORMAL_PRIORITY_CLASS,                          '.')|| die ErrorReport();                                                    $ProcessObj->Suspend();                          $ProcessObj->Resume();                          $ProcessObj->Wait(INFINITE);                          }