$addr   = "A400";
 $addec = unpack("N", pack("H8", substr("0" x 8 . $addr, -8)));
 $adbin = unpack("B*", pack("n", $addec));
 print "ADD_bin: $adbin \n";