$ perl -wle '$y=5; printf "%32b\n%32b\n", -$y, ~-$y;'
11111111111111111111111111111011
                             100