while(1) {
    my $conn = $srv->accept();
    next if !$conn;
    ... weiter wie bislang ...