#!/usr/bin/perl

use IO::Socket;
use IO::Select;

$client = IO::Socket::INET->new (
   PeerAddr => '10.10.200.19',
   PeerPort => 11011,
   Proto    => "tcp",
   Type     => SOCK_STREAM,
   Timeout  => 4,
);
die "Unable to open connection: $! $@\n"
unless defined $client;

until ( $eingabe =~ /^quit$/ ) {

   print "Eingabe bitte: ";
   $eingabe=<STDIN>;

   $client->send("$eingabe") or die "konnte nicht senden: $! \n";

   # hier wird auf Daten gewartet
   @ready = IO::Select->new($client)->can_read(2);
   if ( @ready ) {
      $client->recv($antwort{data},16384);# or next;
      print "Serverantwort: $antwort{data}\n";
   }
}

close($client);