$r->print( %{
  'response' => {'result' => $results,},
});