Select Code to Download

  struct {
    unsigned long var1:16, var2:16;
    unsigned long var3:24, var4:8;
    unsigned long var5:6,  var6:26;
  };

  $fh->read($buf, 12);
  @var = unpack("s s C3 C b6 b26", $buf);