in this code, the daemon work in with only one client. how can i make daemon working with many clients *at once*?

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);
}
[download]