my $server = new IO::Socket::INET();

while(my $client = $server->accept())
{
 next if fork;
 my $line = <$client>;
 print $client "You said: $line\m";
 exit;
}