#!/usr/bin/perl

use strict;
use warnings;

use lib "/web_sites/cgi-modules";

use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTML::LinkExtor;


my $url = "http://devintranet2/cgi-bin/environment.pl";

my $counter = 0;


while ($counter < 60000) {

	my $browser = LWP::UserAgent->new();
	$browser->timeout(10);
		
	my $request = HTTP::Request->new(GET => $url);
	my $response = $browser->request($request);
	if ($response->is_error()) {
		#printf "%s\n", $response->status_line;
			$counter = $counter + 1;
			print "$counter [";
			printf "%s]\n", $response->status_line;
			die;
	} 
		
	my $contents = $response->content();
	
	#print "$contents";
	#sleep(0.3);
	$counter = $counter + 1;
	print "$counter [";
	printf "%s]\n", $response->status_line;

}

##</code><code>##

<IfModule worker.c>
ServerLimit         16
StartServers         2
MaxClients         150
MinSpareThreads     25
MaxSpareThreads     75
ThreadsPerChild     25
MaxRequestsPerChild  0
</IfModule>