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