my ($magic, $id, $type, $genre, $detail, $dist, $link, $tos, $fw,$nat, $real, $score, $mflags, $uptime) =
  unpack ("L L L Z20 Z40 c Z30 Z30 C C C s! S! N", $response);