while (<$socket>) {
        print $socket "Antwort\n"
    }