#!/usr/bin/perl -w
use LWP::UserAgent;
$browser = LWP::UserAgent -> new;
$url = '';
$str = 1; # начало страницы
$end = 20; # конец страницы
while ($str<$end) {
$request = $browser -> get ("$url".$str)->content;
$dir = int(rand(1000));
mkdir ($dir);
open (LOG , ">./$dir/$str.html");
print LOG $request;
close LOG;
$str++;
}