my $select = IO::Select->new($client, \*STDIN);
# schleife wie im bsp. und dann überprüfen ob $socket == \*STDIN
# und ergebnis von readline halt dann an den server senden