my $d = HTTP::Daemon->new(LocalAddr => "localhost",
                          LocalPort => 80,
                          Listen => 20) || die;
my $c = $d->accept
my $r = $c->get_request;
if ($r) {
    my %query = $r->uri->query_form();
    #....
}