# Создаётся сокет, привязывается ко всем адресам (для удобства) на порт 8080 и включается прослушивание.

socket(SERVER,PF_INET,SOCK_STREAM,getprotobyname('tcp'));

setsockopt(SERVER,SOL_SOCKET,SO_REUSEADDR,1);

bind(SERVER,sockaddr_in(8080,INADDR_ANY));

listen(SERVER,SOMAXCONN);

$|=1;

my $CR="1512";

# Приём входящих соединений

while (1){

    # Приём клиента, определение его адрес/порт/хост и вывод на экран (для отладки)

    my $paddr = accept(CLIENT,SERVER);

    my ($ip,$port,$name) = remote($paddr);

    print "Connection from $ip:$port ($name) ";

    # Чтение всего запроса от клиента в одну переменную

    my $DATA;

    while(<CLIENT>){

           chomp;

           $_=~s/ //g;

           last unless $_;

           $DATA.=$_." ";

    }

    # Запись запроса в лог-файл

    Log($DATA);

    # Теперь простая проверка на наличие в запросе нужных заголовков, отправка соответствующего ответа клиенту

    # и запись ответов в лог-файл.

    if($DATA !~/Proxy-Authorization/){

           Log(Response407());

           print CLIENT Response407();