#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $PORT = $ARGV[0] || 7070;

$| = 1;

my $socket = IO::Socket::INET->new(
    Proto     => "tcp",
    LocalPort => $PORT,
    Listen    => SOMAXCONN
) || die "Cannot create server\n";

print "TCP Server waiting for client on port $PORT\n";

while (my $client = $socket->accept) {
    my $peer_addr = $client->peerhost;
    my $peer_port = $client->peerport;

    print $client "Welcome to SERVER\n";
    print "CONNECTION: ($peer_addr:$peer_port)\n";

    while (<$client>) {
        chomp $_;
        print "($peer_addr:$peer_port): $_\n";
        print $client "$.: $_\n"
    }
    close($client);
    print "DISCONNECT: ($peer_addr:$peer_port)\n";
} 
die "Cannot accept socket ($!)\n";