while (my $client = $server->accept()) {
    if (fork() == 0) { # child (Kindprozesse kümmern sich um die einzelnen Clients)
        $client->autoflush(1);
        print $client "Welcome to $0. Please log in.\n";
        while (<$client>) {
            if (...) {} # prüfen was der client schickt...
            elsif (/quit|exit/i) { close $client; last; }
        }
    } # end if fork() == 0
}