Окончательный вариант исходникограберов dumpz.org ;]

#!/usr/bin/perl -w

use LWP::UserAgent;

$browser = LWP::UserAgent -> new;
$url = 'http://dumpz.org/';
$text= '/text/';
$str = '0001';
$end = '9999';
while ($str<$end) {
$request = $browser -> get ("$url".$str."$text")->content;
open (LOG , ">./$str.html");
print LOG $request;
close LOG;
$str++;
}