foreach $server (@servers){
	Win32::Process::Create($ProcessObj,
				"c:\\perl\\bin\\perl.exe",
				"perl.exe c:\\script.pl",
				0,
				NORMAL_PRIORITY_CLASS,
				".")|| die ErrorReport();

$ProcessObj->GetProcessID()