use HTTP::Daemon;
use HTTP::Status;
use CGI;
my $d = HTTP::Daemon->new(LocalPort => 8080) || die;
while (my $c = $d->accept) {
    while (my $r = $c->get_request) {
        my $query = new CGI($r->content);
        my $junk = 1;
        $c->send_error(RC_FORBIDDEN)
    }
    $c->close;
    undef($c);
}