knoppix@Microknoppix:~$ perl -E '
> $pos = pack q{N}, 10000;
> say unpack q{B*}, $pos;
> $neg = pack q{N}, -10000;
> say unpack q{B*}, $neg;
> say $pos gt $neg ? q{Good} : q{Bad};'
00000000000000000010011100010000
11111111111111111101100011110000
Bad
knoppix@Microknoppix:~$