如何将perl对象转换为json字符串

I tried lot of time to convert perl object into JSON String. But still i couldn't found. i used JSYNC. But i saw it has some issues. then i use JSON module in perl. This is my code.I tried lot of time to convert perl object into