use Win32::Process;
@servers=('server1','server2','server3');

sub ErrorReport{
	print Win32::FormatMessage( Win32::GetLastError() );
		}

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

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