# $server ist eine Instanz IO::Socket::INET
while ( my $client = $server->accept ){
   # Daten vom client aus socket lesen
   my $data = <$client>;
   # sende daten an client zurück
   print $lient, $data;
}