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

my ($A, $B) = "";

$A = 0b0;
$B = 0b0;
my $z = (~$A & ~$B);
print "Z: ";
printf "%b\n", $z;
print "Z: ";
printf "%d\n", $z;

##</code><code>##

Z: 1111111111111111111111111111111111111111111111111111111111111111
Z: -1