print "TFD>  About to call &parse_results ...\n";
  &parse_results($p);
  printf "TFD>  Done &parse_results, p->[0] = '%s'\n", $p->[0];