Select Code to Download

use WWW::Mechanize;
$password = "******";
...
 else {
 print $res->status_line, "\n";
  }

('{"clientFeatures":{"protocolversion":"1.03","clienttype":"LC4Full","
+clientname":"LC4Full v2014060601; Firefox/14; Windows","multiplegames
+":true,"examineboard":true},"serviceChannels":["/service/user","/serv
+ice/tournament","/service/game","/service/examine"],"version":"1.0","
+minimumVersion":"1.0","channel":"/meta/handshake","supportedConnectio
+nTypes":["long-polling","ssl-long-polling","callback-polling"],"advic
+e":{"timeout":60000,"interval":0},"id":"1","ext":{"ack":true,"timesyn
+c":{"tc":1402752382334,"l":0,"o":0}}}')

[{"id":"1","error":"403::Handshake denied","successful":false,"advice"
+:{"reconnect":"none"},"channel":"/meta/handshake","ext":{"timesync
{"ts":1402994052362,"t
c":1402752382334,"a":-241670028,"p":4},"hfdetails":"authentication-fai
+led"}}]