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