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

my $pix_path = "F:\\PIXX_TOOLS\\IA_TEST\\1600018";
my $appexecutable = "D:\\WIN32APP\\JRE_142_03\\BIN\\JAVA.EXE";
my $ProcessObj = ();
my @wks_name = qw(PC1 PC2 PC3 PC4 PC5
                 );

for 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 . '\\LIB\\servertester.jar' . ';'.
                           $pix_path . '\\LIB\\orbix2000_6_1.jar' .
            		   " com.lsy.pixx.server.test.Tester $wks_name2 tester.cfg";
                          
      Win32::Process::Create($ProcessObj,
                          $appexecutable,
                          $appparameters,
                          1,
                          NORMAL_PRIORITY_CLASS,
                          '.')|| die ErrorReport();
                          
                          #$ProcessObj->Suspend();
                          #$ProcessObj->Resume();
                          #$ProcessObj->Wait(INFINITE);
                          }