Получить текст страницы, если она запрашивается с помощью POST запроса

$req->authorization_basic('aas', 'mypassword');

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $login='test11';
my $pass='test11';
my $url="http://www.the-game.ru/overview/";
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0");
use HTTP::Cookies;
  $ua->cookie_jar( HTTP::Cookies->new(
    'file' => '/some/where/cookies.lwp',        #файл обмена
    'autosave' => 1,       #по завершении, сохранять ли файл
  ));
#  $ua->referer ("www.the-game.ru");
my $req = HTTP::Request->new(POST => $url,[
 
Host=> 'www.the-game.ru',
User-Agent=> 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0',
 Accept=> 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
Accept-Language=> 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3',
Accept-Encoding=> 'gzip, deflate',
Referer=> 'http://www.the-game.ru/',
pwd=>'t1est',
login=>'t1est',
action=>'action',
#action=> 'login&login=t1est&pwd=t1est',
Host=> 'localhost:27275',
 
]);
my $res = $ua->request($req);
 $res = $res->as_string;
open FILE, '>ww.xls';
   print FILE "$res \n ";

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url="http://www.the-game.ru/overview/";
#$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0");
 
 
my $req = HTTP::Request->new(POST => $url,[
"POST /overview/ HTTP/1.1 \n",
"Host: [url]www.the-game.ru[/url] \n",
"User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0 \n",
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 \n",
"Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3 \n",
"Accept-Encoding: gzip, deflate \n",
"Referer: [url]http://www.the-game.ru//[/url] \n",
"Connection: keep-alive \n",
"Content-Type: application/x-www-form-urlencoded \n",
"Content-Length: 34 \n",
"action=login&login=t1est&pwd=t1est \n",
]);
my $res = $ua->request($req);
 $res = $res->as_string;
open FILE, '>ww.xls';
   print FILE "$res \n $url";

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $refer = "http://www.the-game.ru/";
my $url="http://www.the-game.ru/communicator/555128";
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0");
my $req = HTTP::Request->new(POST => $url,[
    'Accept-Charset' => 'iso-8859-1,*,utf8',
    'Accept'=> 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
    'Host'=> 'www.the-game.ru',
    #'Content-Length'=> '461500',
    'Accept-Language'=> 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3',
    #'Accept-Encoding'=> 'gzip, deflate',
    'Referer'=> 'Referer: [url]http://www.the-game.ru/communicator/555128[/url]',
    'Cookie' => '',
    #POST => 'overview/ HTTP/1.1',
    'action'=> 'login',
    'login' => $login,
    'pwd'   => $pwd
]);
$req->header('Accept'=>'text/html');
my $res = $ua->request($req);
 $res = $res->as_string;
open FILE, '>ww.xls';
print FILE "$res \n $url";

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $refer = "http://www.the-game.ru/";
my $url="http://www.the-game.ru/communicator/555128";
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0");
my $req = HTTP::Request->new(POST => $url,[
    'Accept-Charset' => 'iso-8859-1,*,utf8',
    'Accept'=> 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
    'Host'=> 'www.the-game.ru',
    #'Content-Length'=> '461500',
    'Accept-Language'=> 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3',
    #'Accept-Encoding'=> 'gzip, deflate',
    'Referer'=> 'Referer: [url]http://www.the-game.ru/communicator/555128[/url]',
    'Cookie' => '',
    #POST => 'overview/ HTTP/1.1',
    'action'=> 'login',
    'login' => $login,
    'pwd'   => $pwd
]);
$req->header('Accept'=>'text/html');
my $res = $ua->request($req);
 $res = $res->as_string;
open FILE, '>ww.xls';
print FILE "$res \n $url";