use IO::Socket;

# Create the receiving socket
 my $s = new IO::Socket::INET (

                         LocalPort => 7070,
                         Proto => 'tcp',
                         Listen => 16,
                         Reuse => 1,
                        );
 die "Could not create socket: $!\n" unless $s;

 my ($ns, $buf);


 use IO::Select;
 $read_set = new IO::Select();
 $read_set->add($s);

 while (1) { # forever

   my ($rh_set) = IO::Select->select($read_set, undef, undef, 0);

   foreach $rh (@$rh_set) {
      $rh->autoflush(1);
      if ($rh == $s) {
         $ns = $rh->accept();
         $read_set->add($ns);


      }

      if ($rh == $ns) {

         $buf = <$rh>;
         print "$buf";

        }
       else{
       $msg=<STDIN>;
       print $ns "$msg"; }




      }
   }