#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Request::Common;
use CGI qw(header -no_debug);

my $nick     = "it_black" ;
my $password = "player";

my $ua = LWP::UserAgent->new(agent => 'Opera/9.80 (Macintosh; Intel Mac OS X 10.5.4; U; ru) Presto/2.10.289 Version/12.02');
my $cookie_jar = HTTP::Cookies->new;
$ua->cookie_jar($cookie_jar);

my $ENTER=$ua->post('http://klavogonki.ru/login',
[
'redirect'        => '%2F',
'login'           => "$nick",
'pass'            => "$password",
'submit_login'    => '%D0%92%D0%BE%D0%B9%D1%82%D0%B8',
],

'User-Agent'      => 'Opera/9.80 (Macintosh; Intel Mac OS X 10.5.4; U; ru) Presto/2.10.289 Version/12.02',
'Accept'          => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
'Accept-Language' => 'en-us,en;q=0.5',
'Accept-Encoding' => 'gzip, deflate',
'Referrer'        => 'http://klavogonki.ru/',
'Content-Type'    => 'application/x-www-form-urlencoded');


my $E=$ua->get('http://klavogonki.ru/gamelist?old=1')->content;


my $site='http://klavogonki.ru/gamelist?old=1';

my $RREQ = POST $site,

'Content_Type' => 'text/plain; charset=UTF-8',
'Content'      => [
'body rid'     => " тут хз ",
'xmnlns'       => " ",
'sid'          => "тут хз ",
                  ];

my $r=$ua->request($RREQ);

<>;