Untitled

#!/usr/bin/perl

use IO::Socket;
$port=5000;
$socket = new IO::Socket::INET (
#   LocalHost => '127.0.0.1',
    LocalPort => $port,
    Proto   => 'tcp',
    Listen  => 10,
    Reuse   => 1
) or die "Coudn't open tcp port $port";
print"Waiting for client on tcp port=$port\n";
$/=undef; $data=<DATA>; $len=length($data);
$text=<<"TEXT";
HTTP/1.1 403 Forbidden
Content-Type: text/html; charset=utf-8
Content-Length: $len
Connection: close

$data
TEXT
while(1) {
    $client_socket = $socket->accept();
    $peer_address = $client_socket->peerhost();
    $peer_port = $client_socket->peerport();
    print "$peer_address:$peer_port\n";
    $client_socket->send($text);
}

__DATA__
<!doctype html><html lang="ru"><head><meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta http-equiv="content-type" charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>Доступ запрещен</title>
<style>
.board h1 {font-size:8vw;padding:0 5%}
.board p {font-size: 4vw;text-indent:0.5em;text-align:justify;padding:0 5%}
</style></head><body>
<div class="board"><h1>Доступ запрещен</h1>
<p>Доступ к информационному ресурсу ограничен на основании Федерального закона
от 27 июля 2006 года № 149-ФЗ «Об информации, информационных технологиях и о
защите информации»</p>
<a href="https://eais.rkn.gov.ru/faq/">Если есть вопросы.</a>
<a href="https://eais.rkn.gov.ru/docs/requirements.pdf">Приказ 249 от 14.12.2017</a>
</div>
<!-- operator id1 id2 id3 -->
</body></html>