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