##!/usr/bin/perl

use HTTP::Daemon;
use Data::Dumper;

my $d = HTTP::Daemon->new(
	LocalAddr => 'localhost',
	LocalPort => 4242,
	ReuseAddr => 1
) || die;

my $cnt;
# response loop
while (my $c = $d->accept) {
	while (my $request = $c->get_request) {
		print "Request:\n".Dumper($request);

		my $response = HTTP::Response->new( 200, 'OK');
		$response->header('Content-Type' => 'text/html'),
		$response->content("$cnt Working!");
		$cnt++;

		# print "Response:\n".Dumper($response);
		$c->send_response($response);
	}
	$c->close;
	undef($c);
}

##</code><code>##

#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);
}