my $a;
  while (defined($a=substr($z,$g,1))) {

##</code><code>##

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