Select Code to Download

#!/usr/bin/perl
use strict;
...

my $z = ~0;
printf "%b  0x%x  %d\n", $z, $z, $z;

1111111111111111111111111111111111111111111111111111111111111111  0xff
+ffffffffffffff  -1