$ perl -E 'use integer; say 0x80000000 >> 31'
-1