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 $i;
my @ping = ("PING1","PING2","PING3")
my @list = ("CONNECT","$ping[0]","$ping[1]","$ping[2]","DISCONNECT","END SESSION");
my $letzter = $#list;
print "\n";

########## CREATE CLIENT ###########

print "Sende ein Client Create zum Server...\n";
print $socket "CLIENT CREATE\n";
my $line = getlinefromsocket ($socket);
  if ($line eq "ACK") {
    print "erfolgreich!";

######### Befehle ############

while ($i <= $letzter) {
  print "\nSende ein $list[$i]\n";
  print $socket "$list[$i]\n";
  $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
     elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }
  $i = $i + 1;
}

  }
  elsif ($line eq "NACK") {
    print "fehlgeschlagen!";
  }
  else {
    print "Keine Verbindung!";
  }
print "\n";
$socket->close();

########## UNTERPROGRAMM ###########

sub getlinefromsocket {
  my $buffer;
  my $char;
  while ( $socket->recv( $char, 1 ) ) {
    last if ( $char eq "\0" );
    $buffer .= $char;
  }
  return $buffer;
}