Здраствуйте.
Обьясните что я делаю не так?
Задача: написать скрипт каторый бы подключался к серверу(www.site.ru) через сокет и скачивал страницы начиная с (www.site.ru/skript.cgi?id=127127)
и заканчивая (www.site.ru/skript.cgi?id=127200) - изменяется id
вот что я накатал:

#!/usr/bin/perl

use IO::Socket;
open(OUT,">>adres.txt");
$socket = IO::Socket::INET->new(PeerAddr => 'www.site.ru',
PeerPort => '80',
Proto => 'tcp');
$id=127127;
while($id<127200)
{
print $socket "GET /skript.cgi?id=$id HTTP/1.1\r\n";
print $socket "Host: www.site.ru\r\n";
print $socket "Authorization: Basic VXNlcjpwYXNz\r\n\r\n";
while ($answer = <$socket>)
{
print OUT $answer;
}
$id++;
}
close($socket);
exit;

В результате скачивается только одна первая страница:
www.site.ru/skript.cgi?id=127127
Подскажите что надо додумать?
спасибо за внимание

g613 пожалуйсто поподробне о LWP