$ perl -e 'exit -111'
$ perl -e "print unpack('c',pack 'C', $?),\$/"
-111