use strict;

##</code><code>##

$SIG{ 'TERM' } = $SIG{ 'INT' } = sub { $socket->close(); };
$SIG{ 'PIPE' } = 'IGNORE';
my $client_socket;

# creating a listening socket
my $socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => $port,
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
);