@echo off
set count=0
:loop
set /a count=%count%+1
echo Count %count%
@echo on
perl -e "if ($pid=fork){Win32::Sleep(0); kill(9, $pid); Win32::Sleep(0)}else {sleep 1000}”
if errorlevel 1 goto exit
@echo off
goto loop
:exit
ECHO.%ERRORLEVEL%