Select Code to Download

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

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

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

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

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

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

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