my($fromtype, $fromsubcode) = unpack("C2", substr($icmpbuffer, 20, 2) );