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

$socket = IO::Socket::INET -> new 
(PeerAddr =>'PC110197',
PeerPort => 1810,) 
or die "Konnte Socket nicht erstellen: $!\n";
$socket -> print ("CLIENT CREATE");

$select = new IO::Select ($socket);
while(@ready = $select->can_read) {
  foreach $fh (@ready) {
    if ($fh == $socket) {
      $new = $socket -> accept;
      $select -> add ($new);
    }
    else {
      $select -> remove ($fh);
      fh -> close;
    }
  }
}