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

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

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