#!/usr/bin/perl

use HTTP::Daemon;
use HTTP::Status;
$d=HTTP::Daemon->new(LocalAddr=>'localhost',LocalPort=>6666);
while(1)
{
   $nd=$d->accept;
   $nd->send_error(RC_FORBIDDEN);
}