$ perl -wle 'print unpack c => pack C => 65280 >> 8'
    -1