use strict;
use warnings 'all';

my $i = 0;   # This should be zero! I want 0b00000000!
my $b = unpack("B*", $i);
print $b;