Select Code to Download

#!/usr/bin/perl
use strict;
...
printf "%b\n", $z;
print "Z: ";
printf "%d\n", $z;

Z: 1111111111111111111111111111111111111111111111111111111111111111
Z: -1