use HTTP::Daemon;

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

while (my $c = $d->accept) {
  my $pid= fork;
  if (! $pid) {   ###It's the child process here
    while (my $r = $c->get_request) {
        print $r->method ."\n" . $r->url->path ."\n";
    }
    $c->close;
    undef($c);
  }
### And that's the end of the while loop from the father process
}

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------