while (my $client = $server->accept())
{
    # as normal
}