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

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