#perl

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;

for(1..10000){
	## build request
	print "$_ GET:\n";
	$req = HTTP::Request->new('GET' => 'http://localhost:4242/');

	## Pass request to the user agent and get a response back
	my $res = $ua->request($req);
	if ($res->is_success) {
	      print $res->status_line ."\n". $res->headers->as_string . $res->content;
	}else{
	      print $res->status_line, "\n";
	}
	print "\n\n";

	sleep(1);
}