change json pretty tool to perl json_xs