use IO::Socket; #use strict; my $socket = new IO::Socket::INET (PeerAddr =>'PC110197',PeerPort => 1810) or die "Konnte Socket nicht erstellen: $!\n"; $socket->autoflush(1); print "Sende ein Client Create zum Server\n"; print $socket "CLIENT CREATE\n"; #my $line; getlinefromsocket; #$socket->recv($line,10); print "$line\n"; print "Sende ein CONNECT zum Server\n"; print $socket "CONNECT\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein DISCONNECT zum Server\n"; print $socket "DISCONNECT\n"; $socket->recv($line,10); print "$line\n"; print "Sende ein END SESSION zum Server\n"; print $socket "END SESSION\n"; $socket->recv($line,10); print "$line\n"; $socket->close(); sub getlinefromsocket { my $socket = shift; my $buffer; my $char; while ($socket->recv($char,1)) { $buffer+=$char; } }