my $socket;
while ($socket = $tcpsock->accept) {
    my $line = <$socket>;
    print $line;
    print $socket "Hier spricht der Client";

}
close ($socket);