use Storable qw(thaw);
use Safe;

# Storable nutzt Eval, dass wollen wir aber aus Sicherheitsgruenden
# nicht, deshalb sind wir mal so frech und ersetzen es einfach
# durch Safe::reval :-)
my $safe = new Safe;

$safe->permit(qw(:default require));

{  # 'once' scope
   no warnings 'once';
   $Storable::Deparse = 1;
   $Storable::Eval = sub { $safe->reval($_[0]) };
}

# Es duerfen maximal 512 KB vom Server gesendet werden. Diesen Wert kann
# man natuerlich beliebig setzen.
my $maxbyt  = 522488;

my ($buffer, $length, $bytes);

# Als erstes lesen wir 4 bytes aus dem Buffer. Diese 4 Bytes werden
# mit unpack entpackt, damit wir wissen, wieviel Bytes noch gesendet
# werden.
$bytes = read($socket, $buffer, 4);
die "read only $bytes/4 bytes from buffer" unless $bytes == 4;
$length = unpack("N", $buffer);

# 512 kilobytes ist das aboslute Maximum, was uns der Server/Client senden darf
die "the maximum size of bytes exceeded: $length" if $length > $maxbyt;
die "no data in buffer" unless $length;

# Jetzt lesen wir den Rest vom Socket in einer Schleife... der Grund fuer
# die Schleife ist, dass sich im Buffer maximal 16384 Bytes befinden
# koennen. Wenn mehr als 512 KB gesendet werden, brechen wir ab.
# Notiz: wenn weniger als 16384 Bytes im Buffer liegen, dann wird
# der Rest gelesen. In $bts stehen immer genau soviele Bytes
# drin, wie tatsächlich von read() gelesen wurde.
$buffer = '';
$bytes  = 0;

while (my $bts = read($socket, my $buf, 16384)) {
   $bytes  += $bts; # Anzahl der bisher gelesenen Bytes
   $buffer .= $buf; # Stück für Stück zusammen setzen
   last if $bytes == $length;

   # Hier wird geprueft, dass der Buffer keinesfalls groesser als
   # 512 KB an Daten enthaelt.
   die "the maximum size of bytes is overtaken" if $bytes > $maxbyt;
}

# Falls read() nichts mehr zurückgibt und die Schleife verlassen wird,
# ist es gut möglich, dass nicht alle Daten gelesen wurden.
die "read only $bytes/$length bytes from client" unless $bytes == $length;

# Die Daten werden mit thaw() rekonstruiert.
my $data = thaw($buffer) or die "unable to rebuild data ($!)";