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

[GrOgy]

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

[bdimych]

Можно поподробнее, а то на первый взгляд странно - "пакеты" это как я понял 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

[GrOgy]

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

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

sub reqsub
{
die();
}

[y13]

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