perl -e "exit 5"
  echo %ERRORLEVEL%