my $bin_wert = unpack "B32", 0;
print "$bin_wert\n";