sub ChldExecute($)
{
  my $client = shift || return (0);
  
  # Server Banner senden
  $client->send('INFO $Server: RSM3D$ $Revision$');
  
  # Warte auf Request
  $client->send('AWTR Await request');
  my $request = eval {
    local $SIG{'ALRM'} = sub { exit(1); };
    my $reqtemp = '';
    alarm(1);
    $client->recv($reqtemp, 2048);
    alarm(0);
    return ($reqtemp);
  };
  
  # Request auswerten
  if (!$request || $request eq '')
  {
    # Fehler beim Empfang des Requests
    
    $client->send('ERROR Request not received');
    $client->send('QUIT');
    return (0);
  }
  else
  {
    # Request jetzt analysieren
    
    $client->send('ERROR Processing not implemented');
    $client->send('QUIT');
    return (0);
  }
  
  $client->send('ERROR Haeh???');
  $client->send('QUIT');
  
  return (1);
}