#!/usr/bin/perl
use IO::Socket;
$|=1;
$svr=IO::Socket::INET->new(LocalPort => 9999, Proto => "tcp",  Reuse => 1, Listen => 10);
while ($client = $svr->accept()) {
  $msg = <$client>;
  $msg =~ s/\n//;
  print $client "$msg World\n";
}

close($svr);
