Авторизация на перл с куками

[samlab]

Почему-то не работает вот такой код

Код:

#!/usr/bin/perl -w

use LWP::UserAgent;

$ua = LWP::UserAgent->new;

$ua->cookie_jar({});

$ua->default_header('Accept-Language' =>"ru");

$ua->default_header('Referer' => "http://site.ru/index.php");

$ua->default_header('Accept' => "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*");

$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)');

my $req = HTTP::Request->new(POST => 'http://site.ru/index.php?cf=login');

$req->content_type('application/ x-www-form-urlencoded');

$req->content('login=vasya&passw=pupkin');

my $res = $ua->request($req);

$middle = $res->as_string;

print "Content-Type: text/html\n\n";

print "$middle";

Почему не ловится кука? Вроде, она должна записаться и храниться в памяти программы? И возможна ли авторизация на LWP или нужно использовать сокеты обязательно?
Как всегда, огромное спасибо за любую подсказку и помощь

[RXL]

samlab, сумбурно как-то...
Что не работает? Что значит " не ловится"? При чем тут куки, авторизация и сокеты? Выражайся яснее!
Прежде всего - какая задача?

[samlab]

samlab, сумбурно как-то...
Что не работает? Что значит " не ловится"? При чем тут куки, авторизация и сокеты? Выражайся яснее!
Прежде всего - какая задача?

Прошу прощение за сумятицу...

Не работает приемка и запись кукиса с сайта... Не ловится, как раз и имел ввиду,что куки не принимается...  
Куки,авторизация и сокеты при том, что я понимаю, как-то надо держать соединение открытым?
Задача - авторизоваться на локальном сервере статистики ( авторизоваться я имею ввиду - методом пост отправить пароль и логин), потом словить печенье, по которому сайт запоминает, что я - это я, затем, перейти на страницу статистики потребленного трафика ...
Сервер статистики - сервер провайдера, у меня лимитный инэт ...

[RXL]

samlab, покажи заголовки запроса и ответа.

[samlab]

Заголовки запроса

Код:

(Request-Line):POST /index.php HTTP/1.1
Host:site.ru.ru
User-Agent:Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2) Gecko/20100115 Firefox/3.6 (.NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Accept:text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language:ru,en-us;q=0.7,en;q=0.3
Accept-Encoding:gzip,deflate
Accept-Charset:windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive:115
Connection:keep-alive
Referer:http://site.ru/index.php
Cookie:bash=8nv11kil801mvei30kc9ssf0e5
Content-Type:application/x-www-form-urlencoded
Content-Length:55

Заголовки ответа

Код:

(Status-Line):HTTP/1.1 200 OK
Server:nginx/0.7.61
Date:Sun, 14 Mar 2010 11:27:00 GMT
Content-Type:text/html
Transfer-Encoding:chunked
Connection:keep-alive
X-Powered-By:PHP/5.2.9
Expires:Thu, 19 Nov 1995 08:52:00 GMT
Cache-Control:no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma:no-cache

[RXL]

samlab, в запросе куки уже есть. Если это именно те, что используются серверной частью, то в ответе их не будет.

[samlab]

  И что вы посоветуете?

Добавлено через 1 час, 38 минут и 22 секунды:
Все, разобрался уже сам

[sergvg]

кстати, у меня вопрос по LWP:

если запрос формируется им, то как посмотреть его полностью в текстовом виде? до этого я обходился снифером...

[RXL]

sergvg, смотри документацию: http://search.cpan.org/~gaas/libwww-perl-5.836/lib/LWP/UserAgent.pm

Например, можно добавить обработчик на отсылку запроса и получение заголовка ответа. См. "$ua->add_handler".