IMHO.WS - PERL библиотека LWP

IMHO.WS (https://www.imho.ws/index.php)

- Веб-программирование (https://www.imho.ws/forumdisplay.php?f=29)

- - PERL библиотека LWP (https://www.imho.ws/showthread.php?t=101739)

PERL библиотека LWP

Вопрос для гуру.
С помощью модуля LWP необходимо только отсылать пакеты и ничего не принимать обратно. В настоящее время соотношение посланных пакетов и принятых 1:10 Задача максимально снизить количество входящего трафика. Может как то можно отключить user agent когда идет прием пакетов или еще как то (
ps не хотелось бы это писать на сокетах...

Можно поподробнее, а то на первый взгляд странно - "пакеты" это как я понял tcp/ip но lwp это http который над tcp/ip. Хотя могу ошибаться.

Еще может подойдет head который не дает в ответе body

Код:

use LWP::UserAgent;

use HTTP::Request::Common;

$ua = LWP::UserAgent->new;

$resp = $ua->request(HEAD 'http://imho.ws/showthread.php?t=101739');

print $resp->as_string;

Код:

HTTP/1.1 200 OK

Cache-Control: private, post-check=0, pre-check=0, max-age=0

Connection: keep-alive

Date: Mon, 03 Apr 2006 09:32:11 GMT

Pragma: no-cache

Server: Apache 1.3.34 (Unix)

Content-Length: 28796

Content-Type: text/html; charset=Windows-1251

Expires: 0

Client-Date: Mon, 03 Apr 2006 09:42:55 GMT

Client-Peer: 80.250.185.61:80

Client-Response-Num: 1

Set-Cookie: vb3_lastvisit=1144056731; expires=Tue, 03 Apr 2007 09:32:11 GMT; path=/; domain=.imho.ws

Set-Cookie: vb3_lastactivity=1144056715; expires=Tue, 03 Apr 2007 09:32:11 GMT; path=/; domain=.imho.ws

Set-Cookie: vb3_thread_lastview=146ee6e824d49777cd78c2bd560a23f1ax1x-ix101739ysx10x%221144016148%22y_; path=/; domain=.imho.ws

X-Powered-By: PHP/5.0.5

Ничего лучше не удалось придумать при таком использовании количество входящего и исходящего трафика одинаковое.

my $res = $ua->request($req, \&reqsub, 1);

sub reqsub
{
die();
}

LWP так не умеет. Нужно использовать сокеты, которые будут давать в сокет GET /path/to HTTP/1.0
и сразу закрывать соединение.