#!/usr/bin/perl
$|=1;
print "Content-Type: text/html\r\n\r\n";
use strict;use IO::Socket;my $Server = new IO::Socket::INET (
PeerAddr => '192.168.88.100',    
PeerPort => 2004, 
Proto => 'tcp') 
|| die "kann nicht zum Server verbinden!";
print "bin verbunden <br>";
while(<$Server>) {        
print $_;        
print "in schleife ich drinne sein";
}print "bin getrennt";
$Server->close();

public ClientHaendler(Socket clientsocket, ArrayList clientausgabe) {
        System.out.println("Neuer Client wird verbunden...");
        try {
            this.clientausgabe = clientausgabe;
            socket = clientsocket;
            InputStreamReader isReader = new InputStreamReader(socket.getInputStream());
            reader = new BufferedReader(isReader);
        } catch (Exception e) {
            System.out.println("Client konnte nicht verbunden werden!");
        }
    }

    public void run() {
        String nachricht;
        
        try {
            while((nachricht = reader.readLine()) != null) {
            System.out.println(nachricht);
            nachrichtVerteilen(nachricht);
            }
        } catch(Exception e) {
            System.out.println("Fehler beim Lesen von einer Nachricht!");
        }
    }
    
    public void nachrichtVerteilen(String nachricht) {
        Iterator iterator = clientausgabe.iterator();
        while(iterator.hasNext()) {
            try {
                PrintWriter writer = (PrintWriter) iterator.next();
                writer.println(nachricht);
                writer.flush();;
            } catch (Exception e) {
                System.out.println("Fehler beim verteilen der Nachricht!");
            }
        }
    }