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";
$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 CONNECT zum Server\n";
print $socket "CONNECT\n";
&getlinefromsocket;


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";


sub getlinefromsocket {
  my $socket = shift;
  my $buffer;
  my $char;
  while ($socket->recv($char,1)) {
    $buffer.=$char;
  }
}

$socket->close();

Sende ein Client Create zum Server
ACK
Sende ein CONNECT zum Server
ACK
Sende ein DISCONNECT zum Server
ACK
Sende ein CONNECT zum Server
Can't call method "recv" on an undefined value at sock.pl line 44.