perl 微信取自己的ID

$synckey is 1_647230939%7C2_647231409%7C3_647230934%7C1000_1454375195
$name is xxxx
@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9

$url is https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=1454390671&skey=%40crypt_597aeefd_2087aae333c935578bdb963406aa7acd&sid=LezUNxxOprrVGDT5&uin=1284510822&deviceid=e491139602652110&synckey=1_647230939%7C2_647231409%7C3_647230934%7C1000_1454375195&_=1454390671

window.synccheck={retcode:"0",selector:"2"}$mss is 2
-------------syncinfo-----------------
{
"BaseResponse": {
"Ret": 0,
"ErrMsg": ""
}


在群里发消息:
"AddMsgCount": 2,
"AddMsgList": [{
"MsgId": "1153786086346606897",
"FromUserName": "@@0844f4a616d3ed20156459c371b267b9b4b48f4d7efcb016b43fd55ede044d26",
"ToUserName": "@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9",
"MsgType": 1,
"Content": "@b5a43e12bc8f74b9ebcc77db7898d7d515cf15de04b0681efbd920f626698965:<br/>那那",

别人给我发消息:
"MsgId": "4530263650172567578",
"FromUserName": "@b5a43e12bc8f74b9ebcc77db7898d7d515cf15de04b0681efbd920f626698965",
"ToUserName": "@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9",
"MsgType": 1,
"Content": "那时",


取自己的ID:

$UserName= $d->{User}->{UserName};print $UserName ;

"User": {
"Uin": 1284510822,
"UserName": "@9751b47231055a7a70fe8c106b2479d8bc33de9a536e5e91523af0e4559258bb",
"NickName": "赵杨健",
"HeadImgUrl": "/cgi-bin/mmwebwx-bin/webwxgeticon?seq=846819880&username=@9751b47231055a7a70fe8c106b2479d8bc33de9a536e5e91523af0e4559258bb&skey=@crypt_597aeefd_5127caa7c5dc748ea80848cd99a4f03e",