if (length($in) >= 8) {
        $in = substr($in,8);
      } else {
        $x = "\x00\x00\x00\x00\x00\x00\x00\x00";
        $y = $in.$x;
        $in = substr($y,0,8);
        print "\nGot to the final part ... length is ".length($in)."\n";
      }