if %ERRORLEVEL% 2 perl -x -S %0 %*