perl解码环境变量

环境变量携带的中文，在perl获取时是一串字母数字加%的字符串，要想获取原始的中文，只需将环境变量用函数uri_unescape($str)转化即可，需引入模块use URI::Escape;