Help for this page
my $a; while (defined($a=substr($z,$g,1))) {
my $buff; sysread($socket,$buff,23); my ($did,$payloadid,$ttl,$hops,$length)=unpack("a16CCCL",$buff); my $payload; sysread($socket,$payload,$length);