#!/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++;
}