# Created on 9/6/00
@all=('SERVER1','SERVER2);

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

foreach $server (@all){
	Win32::Process::Create($ProcessObj,
				"c:\\program files\\perl\\bin\\perl.exe",
				"perl.exe c:\\public\\perl5\\cleanup\\findstuff6.pl -s$server",
				0,
				NORMAL_PRIORITY_CLASS,
				".")|| die ErrorReport();

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