use HTTP::Daemon;

my $d = HTTP::Daemon->new(LocalPort => 8080);

while (my $c = $d->accept) {
	while (my $r = $c->get_request) {
		print $r->method ."\n" . $r->url->path ."\n";
	}
	$c->close;
	undef($c);
}