perl weixin 获取uuid

获取UUid：

get url:
https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb
&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage
&fun=new
&lang=zh_CN
&_=1454072811135

请求参数:
_	    1454072811135
appid	wx782c26e4c19acffb
fun	    new
lang	zh_CN
redirect_uri	https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage


返回内容:

window.QRLogin.code = 200; window.QRLogin.uuid = "4fVPJo_Jkw==";


perl程序:
"https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=$now";

jrhmpt01:/root/wx# perl a2.pl 
window.QRLogin.code = 200; window.QRLogin.uuid = "gZt29ha6OQ==";
111111111111111111111111111111111
$r is window.QRLogin.code = 200; window.QRLogin.uuid = "gZt29ha6OQ==";
111111111111111111111111111111111
$uuid is gZt29ha6OQ==