$server = IO::Socket::INET->new
(
  LocalPort => 8001,
  Type      => SOCK_STREAM,
  Reuse     => 1,
  Listen    => 5
);
while ($client = $server->accept())
{
  $line=<$client>;
  print "$line\n";
  print $client "Hello there";
}