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

my $pix_path = "F:\\PIXX_TOOLS\\IA_TEST\\1510027";
my $appexecutable = "D:\\WIN32APP\\JAVA_131_04\\BIN\\JAVA.EXE";
my $ProcessObj = ();
my @wks_name = qw(REMO1
                  REMO2
                  REMO3);

for my $wks_name (@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_name servertester//tester.cfg';
                          
   Win32::Process::Create($ProcessObj,
                          $appexecutable,
                          $appparameters,
                          1,
                          NORMAL_PRIORITY_CLASS,
                          '.')|| die ErrorReport();
                          }