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