"Expires: Wed, 26 Nov 2001 10:01:53 GMT$CR".

           "Proxy-Authenticate: NTLM$CR".

           "Proxy-Authenticate: Basic realm="<-- 407 Protected Proxy-->"$CR".

           "Connection: close$CR$CR <h1>407 Unauth</h1>";

}

sub Response200{

    return  "HTTP/1.1 200 OK$CR".

           "Server: squid/2.5.STABLE3$CR".

           "Mime-Version: 1.0$CR".

           "Content-Type: text/html$CR".

           "Content-Length: 19$CR".

           "Expires: Wed, 26 Nov 2001 10:01:53 GMT$CR".

           "Connection: close$CR$CR <h1>200 OK!!!</h1>";

}

# Функция определения адреса, порта и имени хоста клиента

sub remote{

    my $rem = shift;

    return undef unless $rem;

    my ($port,$ip) = sockaddr_in($rem);

    return (inet_ntoa($ip),$port,gethostbyaddr($ip,AF_INET));

}

# Функция для записи в файл протокола

sub Log{

    open(F,">>connection.log");

    print F scalar(localtime)." ";

    for(split/ /,$_[0]){

           print F " $_ ";

    }

    print F " //====// ";

    close(F);