用perl写的cgi脚本做webservice，json格式