rem I called this errorlevel.cmd
@%1 %2 %3 %4 %5 %6 %7 %8 %9
@echo %ERRORLEVEL%

##</code><code>##

my @out = `errorlevel.cmd perl -le"print for 1 .. 10; exit 12345;"`;;

print pop @out;;
12345

print join '', @out;;
1
2
3
4
5
6
7
8
9
10