use IO::Socket;
use strict;

my @ping = qw(PING1 PING2 PING3);
my @list = ("CONNECT", @ping,"DISCONNECT","END SESSION");

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

########## CREATE CLIENT ###########
print "\nSende ein Client Create zum Server...\n";
print $socket "CLIENT CREATE\n";
my $line = getlinefromsocket ($socket);
if ($line eq "ACK") {
        print "erfolgreich!";
######### Befehle ############
        for my $befehl (@list) {
                print "\nSende ein $befehl\n";
                print $socket "$befehl\n";
                $line = getlinefromsocket ($socket);
                if    ($line eq "ACK")  { print "erfolgreich!" }
                elsif ($line eq "NACK") { print "fehlgeschlagen!" }
                else                    { print "nichts geht!"  }
        }
} 
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;
}