perl weixin 登陆

GET URL：https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=4fVPJo_Jkw==&tip=1&r=1921101475&_=1454072811136参数:_        1454072811136loginicontruer        1921101475tip      1uuid    4fVPJo_Jkw=="手机微信扫码成功，请在手机微信上点击 [登录] 按钮...后把my $show_tip = 0;GET URL:https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=4fVPJo_Jkw==&tip=0&r=1921087898&_=1454072811137返回:window.code=200;window.redirect_uri="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=AazAjnUKYDH8jZJMoCSzTHvD@qrticket_0&uuid=4fVPJo_Jkw==&lang=zh_CN&scan=1454072830";返回ticket=AazAjnUKYDH8jZJMoCSzTHvD@qrticket_0scan=1454072830r是随机产生的 没太大意义perl 程序:"https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$show_tip&r=-$now&_=$now";