Win32::Process::Create(my $ProcessObj,
			"c:\\windows\\system32\\cmd.exe",
			"/c c:\\test\\slowproc.cmd | tee.exe processlog";,
			0,
			NORMAL_PRIORITY_CLASS,
			".") || die ErrorReport();

unless ($ProcessObj->Wait($timeout * 1000)) { $ProcessObj->Kill(1) };