perl weixin synccheck接口

https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?
r=1454122236218
&skey=%40crypt_597aeefd_982cd11f14e9e959901bda3750626568
&sid=vkmy77%2F5mniQce91&uin=1284510822&deviceid=e058503030913239
&synckey=1_646985545%7C2_646985710%7C3_646985696%7C11_646984961%7C13_646980079%7C1000_1454116632
&_=1454122229201

_	        1454122229201
deviceid	e058503030913239
r	        1454122236218
sid	        vkmy77/5mniQce91
skey	    @crypt_597aeefd_982cd11f14e9e959901bda3750626568
synckey	    1_646985545|2_646985710|3_646985696|11_646984961|13_646980079|1000_1454116632
uin	        1284510822


返回:
window.synccheck={retcode:"0",selector:"7"}


synckey	1_646983053|2_646983271|3_646983193|11_646982920|13_646980079|201_1453951753|1000_1453944525
uin	1284510822


perl:

 $url="https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?
 r=$now
 &skey=$Skey_x
 &sid=$wxsid
 &uin=$wxuin
 &deviceid=$DeviceID
 &synckey=$synckey
 &_=$now";
 
 其中 :
  $Skey_x =  uri_escape($Skey); 需要转换
  
  $synckey is 1_646985545%7C2_646985711%7C3_646985696%7C1000_1454116571