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

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


while ($line = <$socket>) {
  print $line;
}