perl -le 'print unpack("c", pack("c", -1))'

perl -le 'print unpack("i", pack("i", -1))'