system( q[ perl -E"exit 1;" ] ); print $? >> 8;;
1

system( q[ perl -E"exit 2;" ] ); print $? >> 8;;
2

system( q[ perl -E"exit 3;" ] ); print $? >> 8;;
3


system( q[ perl -E"exit 123;" ] ); print $? >> 8;;
123

##</code><code>##

system( q[ perl -E"exit -123;" ] ); print $? >> 8;;
133

system( q[ perl -E"exit -2;" ] ); print $? >> 8;;
254

system( q[ perl -E"exit -127;" ] ); print $? >> 8;;
129

system( q[ perl -E"exit -128;" ] ); print $? >> 8;;
128

system( q[ perl -E"exit -129;" ] ); print $? >> 8;;
127

##</code><code>##

system( q[ perl -E"exit -1;" ] ); print $? >> 8;;
Can't spawn " perl -E"exit -1;" ": No error at (eval 26) line 1, <STDIN> line 19.
255

##</code><code>##

system( q[ perl -E"exit 12345;" ] ); print $? >> 8;;
57

system( q[ perl -E"exit 123456789;" ] ); print $? >> 8;;
21