# Nachrichten empfangen
  # alle Nachrichten, die gesendet werden holen.
  my $msg_in='';
  eval{
    # wenn alarm ausgelöst wird,
    # dann "die" und verlasse damit den eval-Block
    local $SIG{ALRM}=sub{ die(); };
    while(1)
    {
      alarm(1); # eine Sekunde bis Abbuch...
      $msg_in.=<$socket>;
      alarm(0); # alarm abschalten
    }
  };