Lösung mit einem Prozeß XI

chatserver.pl

sub quit { my $handle = shift; my $handler = $handler{$handle}; $read->remove($handle); $write->remove($handle) if @{$handler->{'obuf'}} > 0; delete $handler{$handle}; delete $nickname{$handler->{'nickname'}}; $handle->close; broadcast($handler->{'nickname'}, "has left.") if $handler->{'nickname'} ne ""; }

Wenn irgendwelche Fehler auftreten oder eine Verbindung beendet wird, dann räumt quit auf.