This won't help because it always return zero:

c:> perl -e "exit 5"
c:> echo %ERRORLEVEL%
5
c:>perl -e "print system('echo %ERRORLEVEL%');"
0
0
c:>
[download]