#!/usr/bin/perl
use strict;
use warnings;
use Socket;

my $proto = getprotobyname('tcp');
my $port = 1200;

# Create 'sockaddr_in' structure to listen to the given port 
# on any locally available IP address 
my $servaddr = sockaddr_in($port, INADDR_ANY);

# Create a socket for listening on 
socket SERVER, PF_INET, SOCK_STREAM, $proto
                   or die "Unable to create socket: $!";

# bind the socket to the local port and address 
bind SERVER, $servaddr or die "Unable to bind: $!";

# listen to the socket to allow it to receive connection requests 
# allow up to 10 requests to queue up at once. 
listen SERVER, 10;
                                                      
# now accept connections 
print "Server running on port $port...\n";
while (accept CONNECTION, SERVER) {
         select CONNECTION;
         $| = 1;
         print STDOUT "Client connected at ", scalar(localtime), "\n";
         print CONNECTION "You're connected to the server!\n";
while (<CONNECTION>) {
     print STDOUT  "Client says: $_\n";
     print CONNECTION "You said $_\n";
 }

close CONNECTION;
print STDOUT "Client disconnected\n";
}