#!/usr/bin/perl -w

use strict;

use HTTP::Daemon;
use HTTP::Status;

my $d=HTTP::Daemon->new(LocalAddr=>'localhost',LocalPort=>'6666', Reuse => '1')
    || die "Can't create daemon: $!";

my $nd;
while(1) {
	$nd=$d->accept;
	my $r = $nd->get_request();
	$nd->send_error(RC_FORBIDDEN);
	$nd->close;
}