[mar]

короче, поторяю кратко то, что было в аське :
- ссылка на lama book
- а вот ссылка на работу с lwp
и обещаный код (написанный очень давно, так что не взыщите ) (лишнее вырезать не буду, уберу только адреса. Там в цикле при чтении поступающего идет обработка содержимого)

Код:

#!/usr/local/bin/perl5
use IO::Socket;

#$informer="informer";
$informer="каталог_куда_пишем";
$doc="/types/info.js?value=26063&type=1_1";
$remote = IO::Socket::INET->new (Proto=> "tcp",
                                 PeerAddr => "адрес",
                                 PeerPort => "порт",
                                ) or die "cannot connect to http port";
print $remote "GET $doc HTTP/1.0\n\n";
$m="";
$start=0;
open(QQ, ">$informer")|| die("cannot print to data's file $fname");
while (<$remote>)
 {
 if($_ eq "\n") {$start=1;}
 if($start==1) {#chomp(); #$m=$_;}
  $m=$_;
  ## тут меняем все и вся

   print QQ $m || die("cannot write to file $fname");
  }#fi
 }
close (QQ);
close $remote;
#print "<\/body><\/html>";