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