模拟微信登录

use  LWP::UserAgent;  
use File::Temp qw/tempfile/;
use AE;
my $api = 'https://login.weixin.qq.com/jslogin';
my $now= time();
  my @query_string = (
        appid           =>  'wx782c26e4c19acffb',
        redirect_uri    =>  'https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage',
        fun             =>  'new',
        lang            =>  'zh_CN',
        _               =>  $now,
    );

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
$host = "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";
my $response = $ua->get($host);
  $ua->default_headers;
if ($response->is_success) {
 print $response->decoded_content