last if length $buffer == $anz;

my $anzahl = 3;

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);
my $line;

print "Sende ein Client Create zum Server\n";
print $socket "CLIENT CREATE\n";
getlinefromsocket ($socket);

print "\nSende ein CONNECT zum Server\n";
print $socket "CONNECT\n";
getlinefromsocket ($socket);

print "\nSende ein DISCONNECT zum Server\n";
print $socket "DISCONNECT\n";
getlinefromsocket ($socket);

print "\nSende ein END SESSION zum Server\n";
print $socket "END SESSION\n";
getlinefromsocket ($socket);

$socket->close();

sub getlinefromsocket ($socket){
  my $buffer;
  my $char;
  while ($socket->recv($char,1)) {
    $buffer.=$char;
    print $char;
    last if length $buffer == 4;
  }
}

# wie gross darf $buffer max. werden
my $max_buf_size = 3;

while ( $socket->recv( $char, 1) ) {

  last if ( $char eq ' ' ); # Abbruch beim Leerzeichen \x20

  $buffer .= $char;
  last if ( length $buffer == $max_buf_size );
}