#Server.pl
#!/usr/local/bin/perl
use strict;
use warnings;
use IO::Socket;

my $server = IO::Socket::INET->new(
   LocalPort=> 1121,
   Type=>SOCK_STREAM,
   Reuse=>1,
   Listen=>1
   )or die ("Could not create server");

while(my $client=$server->accept()){
         my $child_pid;
         unless(defined ($child_pid=fork())){die"can not fork\n";}
         if(defined($child_pid)){
                        while(my $line = <$client>){
                                 print "CLIENT says:$line\n";
                                 }
                        }else{
                              while(my $line = <>){
                                          print $client "$line\n";
                                          }
                              }
         }

close($server);
<>;