sub bin {
      substr unpack("B*", pack "i", $_[0]), 0, 8;
  }