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 $ausgabe;

print "Sende ein Client Create zum Server\n";
print $socket "CLIENT CREATE\n";
my $line = getlinefromsocket ($socket);
if ($line eq 'ACK') {
  print "es geht!";
}
elsif ($line eq 'NACK') {
  print "geht nicht!";
}
else {
  print "geht nix!";
}

print "\nSende ein CONNECT zum Server\n";
print $socket "CONNECT\n";
my $line = getlinefromsocket ($socket);
if ($line eq 'ACK') {
  print "es geht!";
}
elsif ($line eq 'NACK') {
  print "geht nicht!";
}
else {
  print "geht nix!";
}

print "\nSende ein DISCONNECT zum Server\n";
print $socket "DISCONNECT\n";
my $line = getlinefromsocket ($socket);
if ($line eq 'ACK') {
  print "es geht!";
}
elsif ($line eq 'NACK') {
  print "geht nicht!";
}
else {
  print "geht nix!";
}

print "\nSende ein END SESSION zum Server\n";
print $socket "END SESSION\n";
my $line = getlinefromsocket ($socket);
if ($line eq 'ACK') {
  print "es geht!";
}
elsif ($line eq 'NACK') {
  print "geht nicht!";
}
else {
  print "geht nix!";
}


$socket->close();

sub getlinefromsocket {
   my $socket = shift;
   my $buffer;
   my $char;
   my $max_buf_size = 3;
   while ( $socket->recv( $char, 1 ) ) {
      last if ( $char eq ' ' );
      $buffer .= $char;
      last if ( length $buffer == $max_buf_size );
#      print $char;
   }
   return $buffer;
}