my $buff;
  sysread($socket,$buff,23);
  my ($did,$payloadid,$ttl,$hops,$length)=unpack("a16CCCL",$buff);
  my $payload;
  sysread($socket,$payload,$length);