#!/usr/bin/perl
#This is a version that can read and write  
#from as many clients as your machine supports. 
use strict;
use warnings;
use IO::Socket;

my $server = IO::Socket::INET->new
   (
    LocalAddr    => '192.168.0.1',
    LocalPort    => 1200,
    Type         => SOCK_STREAM,
    Reuse        => 1,
    Listen       => 5
    ) or die "could not open port\n";

warn "server ready waiting for connections.....  \n";

my $client;

while ($client = $server->accept())
{
   my $pid;
   while (not defined ($pid = fork()))
   {
     sleep 5;
   }
   if ($pid)
   {
       close $client;        # Only meaningful in the client 
   }
   else
   {
       $client->autoflush(1);    # Always a good idea 
       close $server;
       &do_your_stuff();
   }
}

sub do_your_stuff
{
   warn "client connected to pid $$\n";
   while(my $line = <$client>)
   {
       print "client> ", $line;
       print $client "pid $$ > ", $line;
   }
   exit 0;
}