c:\@Work\Perl\monks>perl -wMstrict -le
"for my $n (-2, -1, 0, 1, 2, 1023, 1024, 1025) {
   my $bin = reverse unpack 'b10', pack 'v', $n;
   print qq{'$bin' <= $n};
   }
"
'1111111110' <= -2
'1111111111' <= -1
'0000000000' <= 0
'0000000001' <= 1
'0000000010' <= 2
'1111111111' <= 1023
'0000000000' <= 1024
'0000000001' <= 1025