# packed network byte to an integer (see dec2bin.pl)
sub bin2dec {
      (
        $bin_number
       ) = @_;
return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}