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